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NEWDOS/80 



Brand new from Apparat, their most powerful DOS ever. EVERYTHING in NEWDOS and 
NEWDOS+ and more: Variable lengtfi records (up to 4095 bytes), mix or match your disk drives: 35, 
40 and 77 track drives can be used in any combination — even with 8 inch drives, new security 
boot-up sequence makes it impossible for the unauthorized to BREAK or LIST. "DOS READY" and 
"READY" need never appear, enhanced RENUMBER allows relocation of subroutines, powerful 
program GHAINing, option to PRINT on display and printer simultaneously, execute DOS commands 
— from DOS — without disturbing your resident BASIC program. Put the "DOS of the Eighties" to 
work for you. On disk, with all documentation. $149.95 



NEWDOS 



NEWDOS corrects over 70 errors and omissions in TRSDOS 2.1 and disk BASIC, yet they are 
completely compatible! Programs SAVEd under either system need no modification to work with 
the other. Like going from Level I to Level II: more power, convenience and speed. Use all DOS 
commands (DIR, FREE, RENAME, COPY etc.) from BASIC, AUTO LOAD and RUN a BASIC 
program from power-up, produce variable and constant cross reference tables, OPEN "E" to add to 
the end of a sequential file, send whatever is on the screen to your printer, even in DOS (great for 
DIR), renumber BASIC programs, and more . . . Fully documented; available on disk for only $49.95 



NEWDOS PLUS 



ALL of the above PLUS: Editor/Assembler for disk, Z-80 Disassembler, LMOFFSET to relocate 
and save SYSTEM tapes to disk. Level I BASIC language with disk I/O, DIRCHECK to check and 
LIST disk directory, SUPERZAP-display/print/modify any location in RAM or on disk (worth the 
price of the entire package when you resurrect that accidentally KILLed file!). NEWDOS+ on disk 
with documentation, just $99.95 
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TSE began in the basement of our publisher's home. In those days we did everything 

from reviewing submissions, writing documentation, and duplicating cassettes, to licking 
envelopes. There was correspondence with the authors, telephoning, equipment problems, 
authors' contract negotiations and more and more envelopes which needed stamps. 

TSE explored the 'software' territory in those 'frontier days' carefully . . . scouting out 
only the very best, leaving the weaker pieces by the roadside. The number of submissions 
was increasing, and we had all that we could do to provide proper service for our 
customers. We decided then and there that we would publish only 'the' very finest 
software available and commit ourselves to a policy of 'selectivity' and strong customer service. 

Well, it worked .... Since those days in the basement we have grown from a Mom and 
Pop operation with a dozen software titles to a company with 40 employees and over 500 
titles. TSE distributes software for over 50 different vendors. We considered ourselves 
'pioneers,' and as such we learned many things about our business and about our 
customers. We've made mistakes . . . who hasn't, however, the two most important factors 
in our success have been a keen eye towards selecting good software and a commitment 
towards strong customer support. 

We think that you will profit from TSE's experiences and come to find a consistency in 
product selection and a mandate to continued customer service in the months and years ahead. 



William F. Gollan 
Marketing 
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A Microsoft Adventure 

for the TRS-80 and Apple. 

Here is the granddaddy of the computer Adventure games. Microsoft Adventure, 
from the people who wrote BASIC for personal computers, places you in "Colossal 
Cave," where both treasures and perils abound! Here you can find gold, silver, 
jewelry, magic items, and precious pottery. But you may also find threatening 
dwarves, trolls, large green snakes and a giant oyster. Meet the pirate and the 
computer wizard. See the volcano and sulphur lakes. 

As you become more skilled in overcoming obstacles and avoiding hazards, more 
regions of the cave will open up to you. Keep your wits about you and you may 
eventually become a Grand Master. Slip up and you may not become anything, if 
that. It all depends upon your ability and your ingenuity. 

When your adventure begins, you will find yourself outside of the cave. From 
there on in you must tell the computer what you wish to do by means of one- or two- 
word commands. Sometimes the computer might offer to help you with a small hint, 
but remember, there's no free lunch! You will have to do most of the work, including 
learning to use magic, yourself. Look for allies in unexpected places and you might 
surprise yourself. But above all, enjoy! 




TRS-80 version 32K disk 
$29.95 

Apple version 32K disk 
$29.95 
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EDITORIAL 




It's funny how software 
developed on various 
microcomputers differ in style. 
Some of the most challenging 
games are created on the TRS-80, 
the machine with the fewest game- 
type options, as opposed to the 
Apple, Atari, and other flashier 
machines. The TRS-80, it turns 
out, has the most capable version 
of BASIC of all the home 
computers (except, perhaps the 
Heaths). Level II BASIC offers 
IF THEN— ELSE, VARPTR, 
STRINGS, and a nicer RND 
function than the other machines, 
all of which greatly simplifies the 
logic of programming. All of the 
DOS commands are included in 
the TRS-80's Disk BASIC. 
Compare that with the Apple's 
bizarre-looking PRINT D$ 
commands. Most of the programs 
we see for the color computers 
seem to be hung up on graphics 
and sound, and aren't very deep in 
logic. There are always exceptions, 
and most of the commercial 
programs now available are 
improvements over the all-flash 
approach of earlier software. A 
majority of the really interesting 
software, however, comes in for 
the TRS-80. I've even seen many 
instances where program graphics 
are immensely more creative on the 
TRS-80, with its SET-RESET 
graphics, than on the others that 
have multiple graphic statements. 
For example. Android Nim, 
originally for the TRS-80, Dancing 
Demon, and even Imhotep, for 
which we published concurrent 
Apple and TRS-80 versions last 
month, all make unbeUevable use 
of what most people would 
consider very limited graphics 
capabilities. (For those of you who 
think I may be speaking out of a 
bias toward the TRS-80; I'm not. I 
own an Apple myself, on which I 
do almost all of my programming. 
I'm even using an Apple word 
processor, Super-Text, for writing 
this.) The whole point is the 
flashier the system, the more that 
people seem to get caught up in 
the flash rather than in the actual 
art of programming. 
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Programming in itself can be a 
real art. One of the most 
interesting ideas I've seen in a long 
time was the One-Liner idea from 
Arne Rohde. We printed his 
original letter in the July S-80 
SoftSide and have since been 
running One-Liners as a regular 
feature. In trying to condense an 
idea to a program of only one line 
you can discover much about the 
intricacies of the computer 
language you use. As an example, 
I'd never really taken much time 
worrying about converting Apple 
Integer BASIC programs that 
frequently used the MOD function 
to Applesoft. The MOD function 
is somewhat unique to Integer 
BASIC, returning a value that is 
the remainder after division. (13 
mod 10 is 3, 7 and 2 is 1, etc.) The 
best conversion of the MOD 
function I had seen was as a 
function definition (DEF FN) 
pubhshed in Call A.P.P.L.E. Then 
I came upon a One-Liner by 
Dennis Ward (in this issue) in 
which was buried a technique that 
did much the same thing much 
more easily (A-500x(A 500), which 
is similar to a MOD 500. A 500 
has the value 1 if true, if false. 
Actually, this 'MOD' function 
works only if A is between and 
999 and doesn't give the proper 
result when A equals 500. A true 
MOD function is: 
A-INT(A/500)*500). Nifty, 
though, the techniques discovered 
when necessity is involved. Then 
there's the One-Liner we received 
from Will Evans a couple of days 
before this issue went to press. It's 
basically a one-line version of the 
Meteor Storm programs featured 
this month. Although it's a 
stripped down version, it even 
keeps score. (It's sometimes 
difficult to keep up with all the 
advances in the computer field.) 

I've talked to a lot of people 
who lament the lack of software 
available for certain systems (the 
Heath computers, Exidy Sorcerer, 
PET, TI 99/4,. . .) Unfortunately, 
a rule often learned too late is that 
one should check out the kinds of 
software available for a machine 



before investing in the hardware, 
it's not that anyone is necessarily 
ignoring a particular machine; if 
someone is going to invest a lot of 
time or money into developing or 
promoting software, it's got to be 
able to provide a return. There just 
aren't enough TI 99/4s out there 
yet for people to justify 
development time and expense. Of 
course it's an obvious Catch-22: If 
the software's not there, people 
won't buy the machine; and if the 
machine hasn't sold very much, 
people won't develop the software. 

There is even quite a waiting 
period involved, about a year, 
from the time a system is 
reasonably accepted to the time 
significant software products 
become available. The Atari 800, 
which has recently been doing 
quite well, is now a little over a 
year old and a range of good 
quaUty software is just now 



beginning to appear. I predict that 
a year from now the variety of 
Atari software will have caught up 
to the current levels of the Apple 
and TRS-80. It looks like the 
Heath computers may be just 
starting that cycle. 

I've also had calls from people 
complaining that after they'd 
bought software packages, they 
couldn't make backup copies of 
the programs. Unfortunately, 
that's a side effect of piracy. 
Although it's a great convenience 
-sometimes a necessity - to backup 
important disks, software 
companies simply cannot afford to 
allow copiable disks to be sold. 
For each one sold that can be 
duplicated, maybe five or ten will 
be illegally copied for friends or 
acquaintances, especially for the 
really good programs that are in 
demand. That severely cuts into a 
company's profit margin, enough 



so that they'd be foolish to 
voluntarily let it happen. So when 
you buy a commercial program, 
assume that it can't be duplicated. 
If it can, let it be a pleasant 
surprise - and try not to do your 
friends any favors. 

We'd like to welcome another 
full time editor to our staff this 
month. Phil Case just arrived from 
the depths of Missouri with some 
more TRS-80 and Apple expertise. 
He promptly wrote a one Hne 
adventure. Hmmm. Also, if you've 
noticed that our grammar and 
spelling have improved, it's 
probably due to Dave Albert, 
who's been assigned the task of 
taking the miscellaneous atrocities 
we produce and getting them into 
reasonable shape before we turn 
them in to the Art Department. 
It's been a great help. 

Mark Pelczarski 



® 



ABOUT THIS ISSUE: 



Due to the noted absence of that 
Magnificent Penguin, we editorial 
munchkins are going to tell you 
about what lies between the covers 
this month. Don't be alarmed if 
the voice sounds different. 



To begin with, that piece of 
machinery on the cover is merely 
there to indicate that the guru of 
computer wargamers, Ron Potkin, 
has decided to let us all in on the 
secret workings of his Kriegspiel 
program. Furthermore, he has 
graced our pages with another 
spiel, this one on game design. A 
tip of our stocking caps to you, 
Ron! 



For you Appleheads, our very 
own Phil Case has slipped another 
one in! Bowling. Phil is from 
Missouri, so we had to show him 
how you really bowl. . .he still 
hasn't come to accept candlepins, 
though. Give him time. 



And then there's Bouncing 
Barney, the madcap trampolinist 
who can't seem to stay away from 
the floor. . .he needs you. 



Plus it's raining meteors this 
issue, and there's a mad scientist 
lurking about, complete with 



beautiful daughter. The 
increasingly prolific Scott Adams is 
still with us, this month he 
discusses Exatron Stringy Floppy 
in conjunction with his 
Adventures. Lance Micklus gives 



his viewpoint on the home 
computer front and the infamous 
SoftSide Continuing Data Base 
does just that: continues. So do 
we. "Til next month, a merry 
munchkin farewell! 
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TRS-80: 



EXPAND-O- BOARD 
$29- 



As your system grows, the need for additional 
I/O ports becomes obvious. Solve the problem 
with the new three port extender from S.C.P 
The EXPAND-O- BOARD may be connected 
to the keyboard unit or E.I. A bus cable is 
required and may be ordered separately for $11.95. 



II 



TO ORDER CALL: 

(313)264-5704 

OR SEND YOUR ORDER TO: 

Sterling Computer Products 
36811 Lodge Drive 
Sterling Heights, Ml. 48077 

Add $1.50 for shipping - Mich. res. add 4 >: sales tax 

Orders maybe paid by check, money order or COD. 
VISA & MASTER CHARGE ACCEPTED 

DEALER INQUIRIES INVITED! 

TRS-80 IS a trademark ol Tandy Corpofalion I 
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Dear Sirs, 

As an Atari owner, I'm delighted 
with your new format. I am 
looking forward to a great range of 
program types. The almost line-by- 
line documentation is great, but 
might include more information 
about possible variations, or 
machine to machine translations. 

The Maze Search on page 48 is a 
wonderful game! There is one 
correction necessary in the 
program. As it stands, the 
computer goes into attract mode 
(rotating the colors in each 
register) after you have been 
playing for about nine minutes. 
This is quite distracting, and since 
the game is such a hit with the 
whole family, this would happen 
each game session. To correct that 
program, change line 1 to read: 
1 POKE 77,0: GOTO 100 
The POKE resets the attract mode 
clock to each new maze, so nine 
minutes cannot go by on that 
clock. 

On our TV set, we preferred 
changing the SETCOLORs in line 
320 to SETCOLOR 0,1,8 and 
SETCOLOR 4,4,6. It is more fun 
to watch the maze being drawn 
without the distractions of flashing 
random colors. Also, we changed 
the SETCOLORs in lines 410, 420, 
and 430 to SETCOLOR 0,1,8 - 
SETCOLOR 2,0,0 - and 
SETCOLOR 1,12,10 -all for 
greater cursor and target visibility 
(at least, on our TV set). 

Has anyone come up with a two- 
person variation of Maze Search? 
I've tried with no success so far. 
Both players would play at the 
same time on the same maze, either 
competitively or cooperatively. 

Again, congratulations on your 
magazine. I can hardly wait for the 
next issue. 

Yours truly, 

Bruce Frumker 

Cleveland Heights, Ohio 

Dear SoftSide staff, 

I am 14 years old and the co- 
user of an ALTAIR 8800 computer 
(my Dad and I fight over it!). I am 
an avid reader of the TRS-80 
version of SoftSide. I enjoy trying 
to convert the TRS-80 games to 



ALTAIR BASIC. TRS-80 BASIC 

has many neat commands and it's 

a real challenge to figure out what 

they do and find a way to do the 

same thing or close to it in 

ALTAIR BASIC. The only things 

I can't decipher are the graphics 

codes. I bought the LEVEL II 

BASIC book, hoping that it would 

help me. It did, to a point. Now I 

can decode the "control codes," but 

to see the "graphics codes" I was 

instructed to run a simple program. 

If I could display the codes I 

wouldn't need to decode them! 

Now I bang my head against the 

wall every time I see a program 

with TRS-80 graphics. 

But you guys came through 

again! In the August '80 issue your 

article "Converting Graphics" gave 

me the insight I needed. I just want 

to say, "Thanks and keep up the 

good work!" All you need to do 

now is print some programs in 

ALTAIR BASIC. 

Sincerely, 

Barbie King 

Bellevue, WA 
Dear Sirs: 

I was very happy to receive my 
sample copy of the new SoftSide. 
This is certainly a great idea. Those 
of us who are not as 
knowledgeable as your marvelous 
editorial staff will benefit greatly 
from learning all about the 
wonderful Atari Computer that 
can function without a CRT of any 
kind. The chart on page 58 was 
most helpful. As soon as I figure 
out how to hook up my TRS-80 to 
the color TV that you list as 
essential equipment, I'm going to 
get one of those Atari 400s. By the 
way, how do you know what the 
computer is doing without the use 
of a screen? 

Sincerely, 

James W. Chapman 

Diamond Bar, CA 

Near's we can figure it, either the 
Atari is wired for direct connection 
to the brain or the color TV set 
belongs to the Atari. 

GWB 

Gentlemen: 

I want to congratulate you on 
your article DEVELOPING 
DATA BASE, PART I, by Mark 
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Pelczarski. This was exactly the 
type of programming I needed to 
put the computer to work for me. 
In my business we need a lot of 
historical trend data and your 
program came at a perfect time. 
My son and I were ready to go on 
the outside and get the software 
written, but thanks to you we have 
finished one of our required 
programs and feel confident that 
we can accomplish the other 
objectives. 

I estimate that I've already paid 
for my next several years of 
subscriptions on this one article. 

Keep up the good work and our 
hats are tipped to Mark. 

Yours truly, 

Ron Walser 

Roslyn Heights, NY 

Dear Mr. Garon: 
I have been using the Microsoft 
Basic Compiler recently, and I 
came across a useful bit of 
information that you may wish to 
share with your readers. 
I use the RS-232 serial port to 
drive my Centronics 761 printer, 
and naturally I need to use my 
own serial printer driver program 
to link in with the printer DCB. I 
wrote a Basic program using 
LPRINT statements, compiled it, 
(linked it), then loaded my driver 
and executed the compiled /CMD 
file. I crossed my fingers when it 
came to the LPRINT statement, 
but instead of print-out, the 
dreaded "silent death" syndrome 
appeared. 

I figured that one of two things 
was happening: 

a. The compiler was not using 
the TRS-80 printer DCB, 
and going straight to 
37E8H, the parallel port. 

b. My serial driver routine 
was getting clobbered, 
causing the machine to go 
West when it tried to 
execute it. 

Faced with this dilemma, 1 decided 
that I should write a short BASIC 
program: 

10 LPRINT "HELLO" 

20 END 
compile & link it, and disassemble 
the object code. It should be 



obvious what the compiled code 
was doing, right? Eeegads!! The 
/CMD file produced by this 
program was NINE GRANS! This 
called for serious measures. 
Apparat's DISASSEM to the 
rescue! 

Using the cross reference table 
feature of DISASSEM, I produced 
a Usting which would get more 
rapidly to the place in the code 
that was doing the direct interface 
to the printer. Quickly scanning 
the cross listing revealed no 
reference to 37E8H, meaning that 
the compiled version was not going 
straight to the printer. Breathing a 
sigh of relief, I discovered that the 
ROM routine to write a character 
to the printer DCB should have 
been called with the character to 
print. I.e., my printer driver was 
called but it wasn't home. 
Something was clobbering it! 
A little more advanced hackery 
was needed here. I re-linked my 
test program, this time telling L80 
to put the code it produced up out 
of DOS' way (-P:7000 command 
to L80 told it to put the code at 
7000H). Now, I could load the 
code in memory using TRSDOS' 
LOAD command, and look it over 
with RSM. 

I traced the initialization 
code, and it only took a few JMPs 
to find what I was after. The 
compiled code grabs its value for 
MEMORY SIZE from location 
4049H (16 bits, standard Z-80 
order with low order byte first) 
which is set up by DOS. It then 
sets the Z-80 stack pointer to this 
location. My printer driver, which 
resides at the end of memory, was 
getting eaten up by the stack! 
The solution was simple. I added 
the following to my printer driver 
code: 
ORG 4049H ; DOS memory size 

value 
DEFWINIT-1 ; Stuff it with the 
address 
; of the last byte prior 
; to the code you 

want to 
; protect 
ORG OFFOOH ; Start of printer 
driver 

INTT. . .printer driver starts here. . . 
I load my printer driver in the usual 
manner (it performs some 
ititialization, so it is a /C!MD file. . .1 
just type its name, PRINTER, from 
DOS READY), and then execute the 
cominled BASIC code by typing the 
name of the BASIC object code 
(/CMD) file. 



The BASIC object code picks up the 
value for memory size put there by 
my printer driver, and starts the Z-80 
stack right before the driver code. 
Now I can print with compiled code. 

Naturally this technique would work 
with any other machkie language 
program you wanted to protect from 
BASIC. This will be very useful to 
those people who purchase the BASIC 
compiler but not the Microsoft Macro 
Assanbler. If you have the Macro 
Assembler, you can link your machine 
language routines right in with your 
BASIC code when running L80, and 
then there is no need to protect 
memory and load them separately. 
Before I close this out, let me 
mention that I have not found the 
BASIC compiler's error recovery 
to be the world's greatest! 
Example: when compiUng this 
program: 

10 PRINT "THIS LINE IS 
ENDED BY A DOWN ARROW 
AND THE TEXT CONTINUES 
ON THE NEXT LINE" 



the machine goes into DEBUG! 
Some programs get every error 
flagged beautifully, but others just 
cause the machine to go out to 
lunch, no reboot or anything. How 
software like this makes it out the 
door is beyond my wisdom. 

I have found that a startling 
improvement is possible on sorting 
arrays of integers. An array sort 
using Shell-Metzner went from 45 
seconds interpretively to under a 
second compiled! 

Although 1 notice that Radio 
Shack is stating that the compiler 
is not compatible with Disk Basic 
(I assume Radio Shack will be 
selling Microsoft's compiler), I 
have had no trouble getting things 
compiled. Bohlke's Golf game 
from the last SoftSide really speeds 
up, in fact there really should be 
some delay loops added!! Another 
BIG improvement was Scott 
Adams' Backgammon from a few 
issues back. Interpretively, it was a 
bit too slow to hold my interest. 
Now it almost moves instantly, 
sometimes taking 3 or 4 seconds. 

1. Remove CLEAR statements 
that reserve string space. 

2. Add DIM statements that were 
omitted, using the default 
array dimensioning feature of 
the interpreter. 

3. The "THEN" in IF. . .THEN 
cannot successfully be 
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replaced by a comma, (one of 
Bohlke's favorites) and in 
many cases where it can be 
omitted in the interpretive 
code it is required for the 
compiler. 
4. FOR. . .NEXT loops should 
be strictly nested. The 
interpreter is very loose about 
this, but the compiler is strict. 
You must have only one 
NEXT statement for each 
FOR. You can easily patch 
existing code wiht multiple 
NEXTs per FOR by 
substituting a GOTO line 
number containing the NEXT 
for the multiple NEXTs, e.g. 

10 FORI = lto20:IFX(I) = 

THEN NEXT I 
20 X(I) = X(I+1) 
30 NEXT I 

should be changed to: 

10 FOR I = 1 TO 20: 

IFX(I) = 0THEN30 
20 X(I) = X(H-l) 
30 NEXT I 

If you follow these conventions 
and you are lucky, the compiler 
will produce a nice fast (although 
somewhat bloated) version of your 
program. Since the object files are 
quite large, I suggest using the 
compiler sparingly, only when the 
speed up is really required. 

Sincerely, 

Rowland Archer, Jr. 
Hillsborough, Ni C 



Gentlemen: 

What irony — 'Speed on the 
TRS-80" on one page and 
"Opposite Graphics Relationships" 
on the next (The S-80, September, 
1980). I don't consider myself a 
"pro" — I'm a 15-year old, and a 
sophomore, although I've had nearly 
a year of on-keyboard experience, 
in both BASIC and Z-80 assembly 
language. Yet I must say, 1 made a 
total mockery of the inverting 
program in less than ten minutes at 
the keyboard. Eliminating the top- 
to-bottom inverting section (lines 
90-200), your program takes 41 
seconds to execute, and occupies 
259 bytes of memory. My version 
takes 27 seconds to execute, and 
with three program lines it 
occupies only 1 18 bytes of 
memory. Here's how it goes: 
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10 cls:definta;fora=itqioo:printi?rnd(io22),chr$(128+rnd(63));:next 

20 FORA=15360TO16383 ! FFtEK ( f\ ) =32P0KEf!| , 128ELSEFPEEK ( A ) <128NEXT 
30 F€KEA,319-PEEK(A):NEXT Compute it easy. 

And this one even skips over jyjjj,)^ Kasoff 

letters! Yellow Springs, Ohio 



© 



APPLE PROGRAMMING HINT 
One of the problems with many 
of the Apple programs we get is 
that the paddles, if used, are 
sometimes difficult for the user to 
control. This is most predominant 
if the paddle setting is translated to 
-1, 0, and + 1 for the purpose of 
keeping an object stationary (0), or 
moving a unit in one of two 
directions (-1 or +1). The problem 
arises when the paddle is literally 
translated into thirds by the 
programmer. This makes it 
difficult to find the middle setting 
(0), and the user often 
overcompensates and winds up 
swerving back and forth. (See line 
97 of Collision, in this issue.) 

A better approach is to have 
most of the paddle translate into 
zero, with only the extremes 
becoming -1 or +1. (As we did 
with the Apple version of Meteor 
Storm.) This is done by first taking 
the paddle reading, which is in the 
range 0-225, and subtracting the 
number of units that you want to 
use at each end for movement, say 
ten. This gives you a range of ten 
settings on the left that are 
negative, leaving 245 on the right 
that are positive. Now, divide by 
245-10, which is 235. The result is 
ten units on the left, which are still 
negative, and ten units on the right 
which are greater than 1 . Using the 
INT function changes this to -1 (ten 
units on the left), (235 units in 
the middle), or + 1 (ten units on 
the right). It's now much easier for 
the user to find the middle range, 
which does give much better 
control. 

The complete formula is: 
INT((PDL(0)-10)/235. Generalized, 
it's INT((PDL(0)-N)/(255-2*N)), 
where N is the number of units on 
either side that will translate to -1 
and + 1 . Try using it in line 97 of 
Collision and see if you notice the 
difference. 

Mark Pelczarski 

APPLE PROGRAMMING HINT 
RANDOMNESS 

Have you ever played with a 
program that uses RANDOM? You 
may have noticed that it isn't very 
random in its ways after you've 
played it a while. Well, here is a 
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simple fix that will prevent this from 
ever happening again. At the start of 
the program, initiate RANDOMness 
with the following: 

10 X = RND(PEEK(78) + PEEK 

(79)*256):X = RND(-X):REM 

LOCATIONS 

78 & 79 are the keyboard count 

location • «. j 

Dennis Ward 

Beaverton, Oregon 



APPLE PROGRAMMING HINT 

For many months 1 have been 
trying to change DOS's 
"CATALOG" to "CAT". Being 
accustomed to typing "CAT" on 
the main frames I use, it becomes a 
royal pain switching between the 
two. 1 finally peeked into DOS and 
figured out how to change it. 

First, it pokes a high-byte "T" 
into "CATalog". The reason for 
this is when DOS finds the high- 
byte it signals the end of a 
command. Then, since we have 
now shortened the length of the 
command, we will still have the 
"ALOG" from catALOG and must 
dispose of it (or else DOS will do 
weird things like give you Integer 
BASIC when you type 'FP'). All 
we have to do is poke in the 
commands after "CATALOG" in 
DOS's command table and we are 
all set and done. To see DOS's 
command table (For a 48K Apple), 
run this program (Applesoft): 

5 HOME 

10 FOR X = 13H0 TO 13272: REM 
SIBTRACT 1AM1 FROM THESE F 
YOU mJE 32K 
20 PRINT CHR$ ( PEEK (X))? 
30 NEXT X 

The program is written for a 
48K Apple with Applesoft (ROM 
or RAM Applesoft). After you 
load the program, type "RUN". 
Then type "CAT" and voila! You 
CATalog the disk. 

If you own a 32K Apple, just 
subtract 16384 from every value in 
the program OVER 43000, and it 
will work. 

NOTE: You can INITialize disks 
and save this modification so that 
it works every time you boot from 
the disk. 
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WARNING: 

Some programs will not work 
with this modification because they 
are looking for a "CATALOG" 
and you'll set a "SYNTAX ERR". 
1 tried to have it so that you could 
use both but it seems impossible. 
To fix the problem, just boot from 
a disk that has the normal 
"CATALOG" 

5 REM CATW.OG TO CAT 

6 REM RlCtW® CRISAFIUJ 
10 FOR X = 13220 TO 13268 
20 READ L 

30 POKE X,L 

10 NEXTX 

50 DATA 212,77,79,206,78,79,77, 
79,206,80,82,163,73,78,163,7 
7,65,88,70,73,76,69,211,70,2 
08,73,78,212,66,83,65,86,197 
,66,76,79,65,196,66,82,85,20 
6,86,69,82,73,70,217,0 

60 END 

Richard CrisafuUi 
E. Dennis, Mass. 

APPLE PROGRAMMING HINT 
The No-SpUt PRINT STATEMENT 

I have seen many programs 
which I really enjoyed, but every 
time it printed something, words 
would be split or you could tell by 
the LISTing that the programmer 
spent much time making sure that 
lines came out just right, because 
his PRINT statements have plenty 
of spaces to make sure that no 
split words are displayed. 

OK, so here's a very simple 
method to ensure no split words in 
your text displays: 

1) in TEXT mode, input your 
PRINT statements 

2) use "?" instead of typing 
"PRINT" - saving much time 

3) PRINT as many lines as you 
can in one line number for ease in 
formatting 

EXAMPLE: 

]i2?"iiiiiiiiiiiini]iiiniiiiiiniiiiii 

nil":?' '22222222222222222222222222222222 
2222222":?"33333333333333333333333333333 
3333333333":?"44444444444444444444444444 
4444444444444":?"55555555555555555555555 
5555555555555555" 

In this example, there will be 
five lines printed with no problems. 
The trick? - simply line up the last 
quote mark with the first quote 
mark. TAA-Daah!!! Of course less 
per line is OK, but never more! 

Dennis Ward 
Beaverton, Oregon 



BASIC COMPILER 




Bringing BASIC Up To Speed 

You have all kinds of good reasons to program In BASIC. BASIC came with your TRS-80. It was easy to learn, 
it's easy to use, and it's powerful enough for a wide variety of applications. But face it, you didn't choose 
BASIC because it was fast. Until now, if you wanted fast execution time you had to go to a whole new 
language. 

Now you can get fast program execution times and more without giving up BASIC. Microsoft BASIC 
Compiler is a powerful tool for BASIC programming that makes programs run an average of 3-10 times faster 
than programs written in Disk BASIC. 

How It Works 

Microsoft BASIC Compiler can manage those incredible speeds because it's a compiler, instead of an 
interpreter. (Level II, Disk BASIC and other microcomputer BASICS are interpreters.) 

The compiler produces highly optimized, Z-80 mactiine code that is directly executed by your TRS-80. Disk 
BASIC, on the other hand, has to scan each line of the source program every time the program is run. 

You simply type in and debug your program as usual, using your BASIC interpreter. Then you enter a single 
command line, telling the compiler what to compile and what options to use. 

BASIC Compiler takes it from there, producing optimized machine code as a relocatable binary file. This 
file, called the object program, is then loaded and linked with BASIC'S runtime library using a utility program 
called LINK-80. Both the runtime library and LINK-80 are included in the BASIC Compiler package. 

When you run your compiled program, you'll be amazed at the difference! The increase will vary, depending 
on the program, but can be as much as 30 times the execution speed of your interpreted program if you make 
maximum use of integer operations. 

And you can save your compiled program on disk so you don't have to recompile it every time. 

More Than Speed 

As if speed weren't enough, Microsoft BASIC Compiler also adds features to the already powerful Disk 
BASIC to make your programming easier. It incorporates many of the features added to the Microsoft BASIC 
interpreter in the fifth major release, including: 

* WHILE/WEND Statement. A new conditional statement that gives BASIC a more structured flavor. 

* CALL Statement. Lets you call assembly language and FORTRAN subroutines much more easily than in 
Level II. 

* Long variable names. Up to 40-character variable names are allowed and they may contain embedded 
reserved words. 

* Double precision transcendental functions. SIN, COS, TAN, ATN, LOG, EXP, SQR are supported as an 
exclusive feature of BASIC Compiler. 

Powerful BASIC language features you can use within Disk BASIC include: 
' PRINT USING for formatted output. Includes asterisk fill, floating dollar sign, scientific notation, trailing 
sign and comma insertion. 

* Four variable types: Integer. String, Single Precision Floating Point (7-digits) and Double Precision Floating 
Point (16-digits) 

* Trace facilities (TRON/TROFF) 

* Error trapping 

* Direct access to CPU I/O ports with INP and OUT 

* Read or write any memory location using PEEKyPOKE 

* Matrices with up to 60 dimensions 

* Nested IF/THEN/ELSE 

* Boolean operators OR, AND, NOT, XOR, EQV, IMP 

* Complete file manipulation statements: OPEN, CLOSE, GET, PUT, KILL, NAME 

The Inside Story 

It's the optimization processes that take place while a program is being compiled that make programs run 
under BASIC Compiler compact and incredibly fast. The optimizations occur: 

* Expressions are reordered to minimize temporary storage and to transform floating point division into 
multiplication wherever possible. 

■* Constants are folded wherever possible. 

* Constant multiplications are distributed to allow more complete constant folding. 

* Peephole optimizations are performed, including strength reduction. 

* The code generator is template-driven, allowing sequences to be generated for the most commonly used 
operations. 

' String operations and garbage collection are extremely fast. 

System Requirements 

BASIC Compiler will operate on a Radio Shack Model I TRS-80 with one disk and 48K RAM. Programs 
compiled with the BASIC Compiler may be stored on disk. $195.00 plus $3.00 

IheSoHwate Exchange to order toll free 

6 South St., Milford. NH 03055 1 -800-258-1 790 

(In NH call 673-5144) 
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Illlllllllllllllllllllllllllllllllllllll 

FLOPPY DISK 
DIAGNOSTIC 



Now includes memory 
diagnostic at the same price 



The best and most complete diagnostic 
you can buy to verify disk drive reliability 
and find problems. Displays 19 error 
messages and cross references them 
to 14 possible causes. Continuous 
test option for exhaustive testing 
keeps statistical record of all errors 
found. 

• 35 or 40 track In same program 

• Tests controller functions and 
status bits 

• Tests drive speed and allows 

adjustment 

• Tests switches and mechanical 

components 

• Verifies data transfer 

• Tests drive seek function 

• Sector and byte write and read 

tests using all possible patterns 

• 16 to 48K, 1 to 4 disk drives 

• Tests cross cylinder Interference 

• Tests drive-to-drlve compatibility 

Supplied on diskette with manual for 
only $24.95. 





The 
Scitware Exchange 

TOLL-FREE ORDERS: 

1-800-258-1790 

(in NH call 673-5144) 



illllllllllllllllllllllllllllllllllllll 
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MY SIDE OF 
THE PAGE 



by Lance Micklus 



Remember the editorial section 
of Prog 80? Well this is it. I've 
decided to rename it MY SIDE OF 
THE PAGE, so as not to confuse it 
with the regular monthly editorial 
here in SoftSide. This column will 
appear every other month, time 
and space permitting (my time and 
SoftSide's space). So, here 
we go 

Since winter is on the way and a 
lot of new products are coming 
out, this might be a good time to 
comment on what the future looks 
like. 

The TRS-80 Model III is 
certainly going to be a winner if 
they ever get the operating system 
straightened out. Although it is 
priced slightly higher than a Model 
I, it is still cheaper than the 
original Model I was back at the 
beginning. The Model III is 
definitely going to be the hottest 
selling machine for at least the 
next couple of years. 

The TRS-80 Model II is going to 
do better this year than it did last 
year when it first came out. 
Slowly, the software is appearing 
on the market to support it. The 
unit number of sales will, of 
course, be much lower for the 
Model II than the Model III or 
even the Model I. But, in its own 
right, it will do quite well. 

The Model I is doomed thanks 
to the F.C.C. regulations. Still, 
there are a lot of Model Is out 
there in good working condition. I 
have yet to see one that has worn 
out. The compatibility of the 
Model III to the Model I will also 
help keep the original TRS-80 alive 
for a long time to come. 

The machine that everybody 
thought would be called the 
TRS-90 is being called the TRS-80 
COLOR. Atari and Texas 
Instruments tried to enter this 
market with similar machines and 
failed. In my judgement, so will 
Radio Shack. In fact, compared to 
Atari, Radio Shack is at the 
disadvantage. Atari has years of 
experience writing super games. 
Radio Shack does not. Let's face 
it, video gaming is Atari's market 
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and even they have not been able 
to pull much of a profit out of 
their top-of-the-line home game 
machines. Add to that the fact that 
money is very tight right now, and 
you're going to see a lot of slow 
sales in the consumer video market 
in general - which includes TV 
projectors, video recorders, and 
such. 

The problem with the Atari 400, 
Texas Instruments, TRS-80 
COLOR, and other machines of 
this type is purpose. The people 
who are buying microcomputers 
want a practical machine - not a 
toy. In other words, they want a 
computer that can do useful things 
first, and play games second. Even 
the TRS-80 Model II proved that. 
My Model II GAMES Disk is 
selling extremely well and you've 
got to admit the Model II is not a 
game machine by any reasonable 
definition. The game computers 
are coming at this from the other 
direction. They come across as 
machines that play super games 
but can also do useful things. 
Somehow, that just doesn't wash. 

The TRS-80 Pocket Computer is 
going to sell like gangbusters. It is 
a solution looking for a problem. 
It's one of those things that you 
know has got to be useful, and 
then you go and find reasons to 
justify its existence. Sadly, Radio 
Shack blew it with their tape 
storage format. The output 
appears to be RS-232 compatible 
but at an odd baud rate. A lot of 
people need a portable computer 
to collect data that can later be 
uploaded to a TRS-80. From there 
you can go anywhere. I have one 
client here in Vermont who is 
actually lugging around a TRS-80 
Model I in the back of a station 
wagon, using batteries to run it. 
He uses it to record his field data 
about solar energy on tape. When 
he gets back to his office he 
transfers the tape to disk, and then 
uploads it to a PDP-11 using 
ST80-III. I've already talked to 
one hardware guy who thinks he 
can solve the Pocket Computer 
upload problem using a modified 
Micro-Connection, so I know it 
can be done. Once some kind of 



practical solution to this data 
problem does come out, the 
TRS-80 Pocket Computer should 
break all sales records. 

While the Apple has done well 
so far, the Apple and the Softcard 
will probably make all previous 
Apple sales look bad. A lot of 
software vendors have avoided 
Apple because their 8080/Z80 
machine language code would have 
to be completely rewritten for the 
6502 chip. Yet, many vendors 
don't mind modifying their 
machine language code to bring it 
up on another system. The 
Softcard now gives Apple access to 
either the 6502 or Z80 code and 
runs CP/M. It now will become 
feasible to modify Wordstar, 
Pencil, Microsoft compilers, and 
ST80s to run on the Apple. In 
some cases, no modifications will 
be needed at all. That's going to 
generate a lot of interest in 
software vendors who previously 
couldn't get into the Apple because 
of the 6502 chip. 

The PET is an excellent machine 
in terms of units sold. But most of 
the sales are overseas, not here in 
the U.S. The PET is simply no 
match for the TRS-80 Model I & 
III. I don't see this situation 
changing. If anything, I see it 
getting worse. Both TSE and I 
seem to be getting more and more 
TRS-80 mail from the other side of 
the world. This indicates to me the 
fact that the TRS-80 is getting 
more and more notice than ever 
before, overseas, even without a 
Radio Shack store in every city. 
And that's bad for the PET. 

Heathkit has got to get their act 
together. I don't know who's in 
charge over there, but they are not 
keeping up with the state of the 
art. This shows up in all kinds of 
ways, big and small. The other 
day, for instance, I noticed WH-14 
printer manual gives the control 
codes in decimal, octal, and 
ASCII. Who uses octal anymore 
and what about hexidecimal? And 
then there is the disk drive on the 
All-In-One computer which is hard 
sector. The last time I saw a hard 
sectored disk was on an RCA 
Video IV whose design goes back 
about 10 years. On the plus side 
for Heathkit is their excellent 
customer support. Gee, you can 
open the cover without voiding the 
warranty. That's really nice. 
Heathkit also has got the 
marketing place. 

The Super Brain probably will 
be a poor seller. It needs the 



marketing vehicle that Heathkit 
has. I guess that's Hke saying that 
if Heathkit made the Super Brain, 
it would sell a lot better. One bad 
omen with the Super Brain is the 
fact that it is a Z80 CP/M S-100 
bus machine. Historically, that 
magic combination seems to have 
spelled failure. 

The Sorcerer is another sad 
story. It's a machine that might 
have made it and didn't. 
Manufacturer support for the 
Sorcerer is sadly lacking and 
rumors abound of financial 
troubles over at Exidy. They 
certainly have had a lot of staff 
turnover during the last 18 
months. When you look at the 
Sorcerer, you see that same curse: 
Z80 CP/M S-100 bus. 

Computer software is also 
undergoing changes. About 18 
months ago, the market was 
swinging toward low-priced items. 
Although it seemed to make sense 
at the time, it was really a stupid 
idea. People who don't have 
money don't buy their own 
personal computer. Computer 
users do have money. What they 
want is value which does not 
necessarily mean low cost. Now, 
you're going to see sUghtly less 
software, higher prices, but better 
quahty, superior packaging, and 
improved customer support. One 
good program will always be worth 
more than five poor ones. This is 
going to create a void, however, 
for the small selling low-priced 
items. I've seen a lot of programs 
which are good but will only sell in 
small numbers and at low prices. 
The problem is going to be how to 
keep these products on the market. 
I'm thinking especially of 
computer games. I predict that 
something will come up to fill this 
need but I don't know for sure 
what that will be. 

Over on the hardware side, 
you're going to see two battles. 
The first is the modem war. This is 
not going to be so much of a price 
war as a performance war. In 
other words, the price of modems 
will remain the same , but the 
features will keep getting better 
and better. The other war will be 
in the area of printers. The trend is 
going to be toward a smaller dot 
matrix (more dots) and 
bidirectional printing at faster 
speeds. Yet the price will keep 
coming down. 

The cost of disk storage, too, 
will keep coming down while 
performance will continue to 
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increase. But the ultimate direction 
in disk storage will be shared file 
access. The problem with shared 
file access is in the design problems 
for a bus structure and an 
operating system to support it. 
Digital Research has found a 
neat way around both of these 
problems with a new operating 
system call CP/NET. CP/NET 
uses a host computer that is well 
equipped with hardware, especially 
disk storage. Microcomputers are 
connected to the host via RS-232 
lines. These micros run a special 
CP/M operating system that 
automatically sends and receives 
data with the host using a special 
protocol. To the microcomputer, 
the host computer will appear as if 
it were a disk drive or a printer. 
This lets several users share the 
host and its equipment while each 
user operates with his own CPU 
and memory. 

Still, multi-task multi-user 
systems are going to be the most 
conventional way of sharing data 
files for at least the next couple of 
years. These are turning out to be 
mini-computers that use 
microcomputer chips - usually the 
Z80 - and memory bank switching. 
MP/M is one operating system 
designed to do exactly that. The 
new 16 bit CPU chips, such as the 
Z8000, will also create more 
interest in what is really time- 
sharing on a small scale. 

Rumor has it that Radio Shack 
is working on such a machine right 
now. This is supposedly the 
TRS-80 Model IV. It looks like it 
will use the Z8000 for a CPU chip. 
If the rumor is true. I believe the 
machine will be announced next 
summer and go into production 
next fall. 

Overall, I think the 
microcomputer market is going to 
continue to be very healthy. The 
biggest problem, I think, is going 
to be for vendors and users to 
keep up with all of the new 
products. Yet, in spite of all of the 
confusion, someday people will 
refer to the next few years as the 
golden era of the computer. ^% 



S-80 PROGRAMMING HINT 
(Level II) 

To disable VIDEO, POKE 
16413,0. 
To re-enable it, POKE 16413,7. 
While video is disabled, nothing 
can be printed on the screen. 

Shane Causer 
Brunswick, GA 
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by Richard P. Wilkes 

SUPERSCRIPT is a series of Machine Language programs 
which permanently customize Scripsit" for the following 

* ""^he user can now get a DIRECTORY from within Super- 
Script which lists all files and the number of free grans on the 
diskette 

* Files can be KILLED from within Superscript using the 
'K' command. This is invaluable when extra space is needed 
to save a large text file 

* The KEYBOARD DRIVER is changed to allow a correct 
key repeat which is faster than tapping on a key and which 
does not destroy the video display 

* Operator may INSERT TEXT into unjustified lines dur- 
ing printout For example, inserting a name after "Dear" and 
before the colon 

* Parallel and serial drivers are included on the disk 

* Serial drivers are included which use the ETX/ACK pro- 
tocol for 1200 baud communications 

* On printers that can backspace, UNDERLINING and 
SLASHED ZEROS are options 

* On Diablo and NEC printers, one can SUPERSCRIPT, 
SUBSCRIPT, UNDERLINE, BOLDFACE, SLASH ZEROS, and 
select 10/12 pitch 

* User can CUSTOMIZE the serial and parallel drivers for 
use with other types of letter-quality printers 

* The initial character sent to the printer is changed from a 
linefeed to a carriage return to empty buffer 

* The "L" command used to load a file now requires a 
filespec to avoid destroying text buffer if the question mark is 
omitted from the "?L" command 

* A REQUIRED SPACE may be specified when it is un- 
desirable for Superscript to place spaces between parts of 
the text when justifying 

* SPECIAL CHARACTERS such as brackets, braces, and 
carets can now be entered from the keyboard 

* Status messages at the bottom of the screen are more 
terse and are in upper and lower case 

* Superscript protects drivers in high memory 

* A relocating LOWER CASE driver is included for use 
when utilizing the text insert function Instructions can be ob- 
tained from the source code provided on its use in HASIC 

TRS 80 Level II, 32K disk $29 95 
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The Sohw^are Exchange 

6 South Street, Milford, NH 03055 

TOLL FREE 1-800-258-1790 



(In NH call 673-5144) 



televisions, Disneyland trips they're all on the big screen. 
There's even a TRS-80! 

But don't forget the basic rules! Concentrate on what's on 
the board, or you'll end up helping your opponent more than 
yourself, 
TRS-80 Cassette J7 95 



by Bruce Chalmers 

Stumped by statistics? Here's the program for you! 

Written by a statistician but designed for use in the real 
world Helps you: Create files, examine and edit data, and 
understand descriptive statistics Sophisticated enough for 
the working statistician This powerful interactive statistical 
package features Complete error diagnostics, missing value 
specification and sophisticated graphics 
TRS-80 Disk 32K & 48K versions on one disk $29 95 



by W, I, Kutleuer 

THE INVESTOR'S KEY TO OPTIONS MARKETING!! 

Make informed trading decisions in minutes with this easy 
to use package 

WHO: Investors, Option Writers or Purchasers use this pro- 
gram 

WHAT: Analyzes option prices and responds to current 
market prices as soon as you receive them. 

WHY: Assesses the value of a given option Monitors the 
value of your investments Helps you decide when to pur- 
chase or to close out your options 

HOW: Use TRS-80 Disk 

Next to your broker - this program is your best option in 
creative investing Analyze option prices before risking any 
money Convenient features are data entry and flexibility in 
handling a wide variety of situations 

Available for Level II, 16K TRS-8 Microcomputers . $29 95 




Select a square and reveal one half of a fabulous prize! 
Find the other half and it's yours (well, not really) Stereos, 



Open the manual and LOAD the cassette Then get ready 
to explore the world of programmable characters with the 
SCREEN MACHINE* You can now create new character sets 
- foreign alphabets, electronic symbols, and even Hi-Res play- 
ing cards, or use the standard upper and lower case ASCII 
character set 

The SCREEN MACHINE lets you redefine any keyboard 
character Create any symbol by using a few easy key strokes 
and the SCREEN MACHINE will assign that symbol to the key 
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of your choice. For example: Create a symbol, an upside 
down "A," and assign it to the keyboard 'A' key. Now every 
time you press the 'A' key, or when the Apple prints an A', it 
will appear upside down. Any shape can be assigned to any 
key. 

The SCREEN MACHINE gives you the option of saving 
your character symbols to disk or tape for later use There is 
no complicated 'patching' needed. The SCREEN MACHINE is 
transparent to your programs. Just print the new character 
with a BASIC print statement The SCREEN MACHINE is very 
easy to use. 

Included on the cassette are Apple Hi-Res routines in SOP- 
TAPE prefix format. You can use both Apple's routines and 
the SCREEN MACHINE to create microcomputing's best 
graphics. 

Cassette and Documentation $19.95 

Disk version $29 95 
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by Steve B)ork and Patricia Cartier 

SOFT MUSIC is a two-voice, seven octave music synthesizing 
program. Although it is written in Machine Language, it ap- 
pears as a BASIC line By this method it is possible to save 
and load Machine and BASIC Language programs together 

With a general knowledge of music, you will be writing 
songs and adding to your BASIC programs in no time 

Also included in this package is a MUSIC EDITOR to aid in 
the development of songs for SOFT MUSIC 

TRS-8016K Level II, Cassette $24 95 



FORTH II IS an extremely well-documented version of the 
Forth language that has been in use since the late 1960s. 

It is many times faster than BASIC and is easy to use Some 
of its features are: 

•Runs on any Apple II computer (24K minimum), 

•Supports DOS 3 2; 

"Control C Break and Continue; 

•Compatible with Autostart ROM; 

•"Save it" file for customizing system; 

•Disk-based editor and compiler 

•Complete instructional reference manual; 

•Excellent execution speed and memory efficiency; 

•Verbs for graphics, game I/O, sound, disk and tape I/O 

$49,95 
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At last, the sequel to the "Temple ot Apshai Dunion- 
quest's newest, "Hellfire Warrior," adds four more levels to 
the lowest reaches of Apshai's dunjon Undead and fiery 
demons roam seemingly endless labyrinths, gobbling up all 
but the hardiest warriors If you are a beginner, perhaps you 
should explore other regions first, for "Hellfire Warrior" is for 
only the most hardened 

Cassette $24 95 

Disk $29.95 



Brciderbund SoPtuuarc 

tm cAiAcnc TiutocY 

These first three games in the Galactic Saga put you in the 
commander's seat with complete graphics giving you all the 
information you need. 

1 GALACTIC EMPIRE 

The Problem - unite the galaxy of 20 worlds under a single 
flag, starting from a single world neither large nor powerful. 
The Challenge - time and distance are real; if you don't get 
troops and material to the right place at the proper time, they 
will do you no good The Solution - scouting, planning, a head 
for logistics and picking your targets are the ingredients for 
your success 

2. GALACTIC TRADER 

Relieved ot your command in peacetime, you are forced to 
become a trader to survive Use your bartering ability and 
knowledge of the galaxy to outwit the sharpest business 
creatures in the galaxy. Ten levels of difficulty so you never 
outgrow the game 

3 GALACTIC REVOLUTION 

Pit your skill at manipulation against the Emperor as you 
compete for the allegiance of the various power groups 
whose help you need to wage the Galactic Revolution! For 
one to three players 
TRS-80 Level II, 
16K Cassette $14.95/game 

Apple II Plus, 48K Disk, Hi-Res & Sound $24.95/game 

Soft Sector Marketing, Inc. 
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by V B Hester Version 2 1 

The BOSS is designed to aid you in creating and debugging 
programs written in BASIC It will allow you to trace the pro- 
gram flow, to single step the BASIC program, to observe the 
conditions of variables during program execution, and to 
push your BASIC programs on the stack or pop them off the 
stack during program development. The BOSS operates with: 
TRSDOS 2.2-2 3, NEWDOS 80, NEWDOS 2.1, and VTOS - 3 

The BOSS will operate with either Level II BASIC or Disk 
BASIC Minimum equipment configuration is 16K Level II 
TRS-80 with cassette input Functions include: 

* TRACE FUNCTION - Allows you to follow the twisted (or 
logical) path your program takes, without messiness on the 
screen caused by the other trace function. 

* SINGLE STEPPING - Allows you to single step individual 
lines of a BASIC program of individual instructions within a 
line. 

* BREAK POINT - The trace and single step commands 
can be invoked by your program while it is running with this 
feature 

* REVIEWING VARIABLES -Allows you to pause to review 
selected variables during program execution and return to 
your program with the display restored to that shown before 
you review the variables (great if your screen had graphics 
displayed) 

* STACKING PROGRAMS -Allows you to stack one or 
more programs in high memory while you work on or run 
another program Of course, this ability is limited by the 
amount of free memory space available. You can retrieve the 
stacked programs at will. 

TRS-80, 16K Level II 

Cassette $29 95 
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STIMULATING SIMULATIONS, 2nd 
Edition 

by C. W, Engel 
(Hayden) 

An exciting handbook containing 
twelve "simulation programs," which 
are actually game programs. They 
include: Art Auction, Monster Chase, 
Lost Treasure, Gone Fishing, Space 
Flight, Starship Alpha, Forest Fire, 
Nautical Navigation, Business 
Management, Rare Birds, Diamond 
Thief, and The Devil's Dungeon. 
Clearly written in a BASIC format 
that is compatible with all 
microcomputers, they are all original 
and well-documented. Each program 
is presented with a listing, sample 
run, instruction, and program 
documentation, including flow chart 
and ideas for variations. 

$5.50 plus $1 

A CONSUMER'S GUIDE TO 
PERSONAL COMPUTING AND 
MICROCOMPUTERS 

by S Freiberger and P Chew Jr. 
(Hayden) 

Both an introduction to the 
principals of microcomputers that 
assumes no previous knowledge on 
the reader's part, and a review of 64 
microcomputer products from over 
50 manufacturers. Other features 
include: extensive illustrations to 
reinforce the discussions, a selection 
and sources section to assist in 
reviewing, selecting, and purchasing 
microcomputer products: summary 
charts of major microcomputer 
products offering a quick summary 
of specifications for a given product, 
and comment sections covering the 
advantages, disadvantages, and best- 
buy tips for each microcomputer 
product. 

$8.95 plus $1 



THE MIND APPLIANCE: HOME 
COMPUTER APPLICATIONS 

by T.G Lewis 
(Hayden) 

Chock full of unique and 
challenging ideas for applying your 
computer to home use. Make your 
computer write poetry, balance a 
checkbook, dial a telephone 
automatically, handle household 
budgets, menu planning, shopping 
lists, and income tax calculations. 
Dozens of BASIC language 
programs, including: Buying for the 
Home; The Garage (Fundamentals of 
BASIC); The Living Room (Simple 
Retrieval); The Kitchen (Advanced 
Retrieval Systems); The Bedroom 
(Word/Text Processing); The Den 
(Business Processing); The 
Bathroom (Graphics); The Split Level 
Home (Ideas); and a Glossary. 

$9.55 plus $1 

CP/M SOFTWARE SUMMARY 
GUIDE 

( Rainbow Associates) 

Rainbow Associates announces the 
CP/M Software Summary Guide — a 
concise, handy summary of the 
major software used on most CP/M 
systems Included are summaries of 
the CP/M operation system. 
Microsoft BASIC, CBASIC", and the 
CP/M utilities DESPOOL'", MAC", 
and TEX 

The CP/M summary covers the 
commands (DIR, ERA, REN, SAVE. 
TYPE, USER) and utilities (ASM, 
DDT, DUMP, ED. LOAD. MOVCPM, 
PIP, STAT, SUBMIT, SYSGEN, 
XSUB). Each one is explained briefly 
and clearly with examples The 
booklet also sumarizes all features of 
Microsoft's BASIC-80 (including the 
compiler) and Compiler System's 
CBASIC, Error codes for CBASIC-1. 
CBASIC-2. and BASIC-E are also 
summarized in a single alphabetical 
list Examples and definitions clearly 
explain the workings of DESPOOL. 
MAC, and TEX utilities offered by 
Digital Research, 

The CP/M Software Summary 
Guide, 60 pages long, is designed to 
be especially easy to use Features 
are organized alphabetically, so the 
reader can find an explanation 
quickly rather than having to page 
through various function sections. 
This solves the single most common 
complaint programmers have about 
manuals and summary guides. 

About the size of a paperback 
book, the Guide is handy to hold. 
Indenting and capitalization are used 
to make the information "jump out" 
at the reader "The idea for this 
booklet is attributed to need; the 
format is attributed to common 
sense, " says Bruce A Brigham, 
Rainbow's Technical Consultant and 
author of the Guide. $3.75 plus $1 
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TEN EASY PIECES: CREATIVE 
PROGRAMMING FOR FUN AND 
PROFIT 

by H. Sagan and C Meyer. 
(Hayden) 

An introduction to the BASIC 
language through computer games. 
Written in an informal style, it 
stimulates interest in creative 
programming of games of chance 
and of skill. Teaching by example, 
these games illustrate the various 
programming techniques at stages of 
difficulty which are suitable to almost 
unlimited modification, simplification, 
or amplification. Emphasis is on 
prompting creativity on the part of 
the reader. The text requires little 
knowledge of elementary 
mathematics. 
$7.95 plus$1 

UNDERSTANDING 
MICROCOMPUTERS 

(Scelbi) 

Here are the answers to hundreds 
of questions about microcomputers. 
Written in simple English You get 
the fundamental concepts behind the 
operation of virtually all 
microcomputers. Convenient 
glossary covers all the key words. 

Introduces BASIC language 
programming. Tells how to select a 
small computer system. Basic 
instructions for almost every class of 
microprocessor are illustrated along 
with details on how a CPU is 
organized and how it follows 
directives and solves problems. 
Explains flow charts, program 
worksheets and memory maps. 
$9.95 plus $1 

VINYL BINDERS 

Quality vinyl binders with 12 metal 
rods, perfect for storing your back 
issues of SoftSide. S4.95 +$1 
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STRUCTURED BASIC AND 
BEYOND 

W. Amsbury 

(Computer Science Press) 

The BASIC programming languge 
is presented in an easily understood 
and well written manner oriented 
toward interactive terminal use. The 
author emphasizes structured 
programming concepts and goes 
beyond to include concepts related 
to data structures, files, strings, and 
lists, stacks, and ques. Dr. Amsbury's 
treatment of the logical structure of 
programs is unique at this level. This 
text presents probably the most 
comprehensive and useful set of 
examples and exercises in BASIC. 
These range from simple to 
challenging; answers are provided to 
selected self-review exercises. These 
features make this book ideal for 
both teacher and student. 
$10.95 plus $1 

CHESS AND COMPUTERS 

D. Levy 

(Computer Science Press) 

This is the first really 
comprehensive book on the subject 
of Computer Chess. The first chapter 
describes the earliest chess 
"machine," the famous Automaton 
chess player that toured Europe and 
America, and there is a detailed 
account of Torres y Quevedo's 
invention that played the ending of 
king and rook against king. 
Following this is a lucid description 
of how computers play chess and 
then a detailed history of computer 
chess, including an account of early 
Soviet attempts at chess 
programming that contains much 
information hitherto unpublished 
outside the Soviet Union. David 
Levy's fascinating book continues 
with a record of computer chess 
tournaments and concludes with a 
description of various research 
projects that are currently under way 
and a prediction of what the future 
holds for chess programmers. 
$9.95 plus $1 

PASCAL 

W. Findlay and D. Watt 
(Computer Science Press) 

The primary aim of this book is to 
teach good programming practice 
based on Pascal, the lingua franca of 
computer science. Its secondary 
purpose is to serve as an 
introduction to the language, for 
both the novice in computer science 
and the reader who has already 
learned one of the other computer 
languages. 

By emphasizing sound 
programming principles, good style 
and a methodical approach to 
program development, the authors 
teach clear and logical expression 
that can be universally applied. No 
prior acquaintance with computers 
or with advanced mathematics is 
assumed. 

K Wide variety of examples, and 
graded end-of-chapter exercises, 
some with answers, have been 
included to reinforce the readers' 
comprehension of the text. 
$12.95 plus$1 




BACKGROUND MATH FOR A 
COMPUTER WORLD, 2nd Edition 

R. Ashley 
(Wiley & Sons) 

In today's increasingly complex 
world of computers, this newly 
updated popular self-instructional 
guide Mcill prove more useful than 
ever. In a sequential, crystal-clear 
format, it provides the basic 
mathematical facts, techniques, and 
ideas a person must understand to 
be effective in the computer world - 
the fundamentals for knowledgeable 
computer use by general consumers, 
professionals, and students in 
business, psychology, education, the 
humanities, and the social sciences. 

Featuring an entirely new chapter 
on trigonometry this new edition 
helps readers work with computers 
in a far more meaningful, productive, 
and satisfying way. Its solid-math 
background equips readers to keep 
abreast of modern computer 
developments and relate these 
advances to their own profession. 

This self-instructional guide 
requires only a minimal high school 
math background - and no prior 
knowledge of computers. Best of all, 
you can apply what you learn - with 
any of the computer languages - on 
a home computer, a small operation, 
or a major computer installation. 
$7.95 plus $1 

LEARN MICRO-COMPUTERS 

(Sceibi) 

A new multimedia information 
package. Includes text 
("Understanding Microcomputers") 
plus high-quality cassette. For the 
beginner just starting in 
microcomputers. Covers all the 
basics quickly, easily and enjoyably. 
Companion tape includes chapter- 
by-chapter synopsis of the book. 
Great new idea for self-study. 
$14.95 plus$1 



BASIC FOR HOME COMPUTERS 

B. Albrectit, L. Finkel and J. Brown 
(Wiley & Sons) 

Explains how to read, write and 
understand BASIC programs. This 
Guide includes applications and 
games for the hobbyist and others 
who want to put their computers to 
work or to play. "Gently leads the 
readers through the fundamentals of 
programming . . . Should be of 
considerable value to the 
apprehensive neophyte." — 
Datamation 
$7.95 plus $1 

THE BASIC HANDBOOK 

by Dr. David Lien 
(Compusoft) 

This book is unique. It is not a 
textbook. It's far more than a 
dictionary. It is a virtual 
ENCYCLOPEDIA of the BASIC 
language. 

While not favoring one computer 
over another, it explains over 250 
BASIC words, how to use them, and 
alternate strategies. Since over 50 
computers are represented, yours is 
probably in here too. $14.95 plus $1 

INTRODUCTION TO LOW 
RESOLUTION GRAPHICS 

N. Wadsworth 
(Sceibi) 

Now you can produce amazing 
computer graphics graphics?iu can't 
draw a straight line. Literally! Learn 
how to draw lines and shapes, make 
graphs, draw pictures and even do 
animation. The simple secrets of how 
to do all this are contained in 
SCELBI's new book "Introduction to 
Low Resolution Graphics." 

Today's exciting personal and 
small business computing machines 
are generally provided with at least 
some kind of "low resolution" 
graphics capability. What is low 
resolution graphics? It is graphics 
presented on a point-by-point basis 
where the number of points is limited 
to about 8000 or less. The APPLE II 
by APPLE computers. Inc., The 
Radio Shack TRS-80 and the 
Commodore PET all have low 
resolution graphics capability. So do 
many other kinds of microcomputers. 

What can you do with low 
resolution graphics? All kinds of 
things ... If you know howl You can 
plot plain and simple or fancy and 
complex graphs to consolidate data, 
for business or pleasure purposes. 
But you can use the capabilities to 
improve the presentation and impact 
of almost anything you want your 
computer to tell people. It can be 
used to animate games or data, 
clarify and amplify educational 
materials, or just plain entertain 
people. $11.95 plus$1. 



TAKE MY COMPUTER . . . PLEASEl 

S. Ciarcia 
(Sceibi) 

An uproariously funny book about 
the true-life misadventures of author 
Steve Ciarcia and his computer's 
inability to cooperate. Hardcover. 
$5.95 plus $1 
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TRS-80 BASIC 

by B. Albrecht, D. Inman and R. Zamora 
(Wiley & Sons) 

Beginners rapidly learn how to 
program the versatile TRS-80 - 
today's fastest selling 
microprocessor - with this 
entertaining guide. The book's 
unique self-teaching format requires 
no previous familiarity with 
computers. Packed with exciting 
games and computer graphics, the 
book also includes learning activities 
in math and language art, and 
applications for home management, 
financial computations, and 
household record keeping. 
$8.95 plus $1 

Z80 INSTRUCTION HANDBOOK 

N. Wadsworth 
(Sceibi) 

Convenient pocket-size manual 
describes Z80 capabilities In easy-to- 
understand terms. Designed as a 
practical reference to mnemonics, 
machine codings, usage. For 
programmers of every level - 
beginner to professional - anyone 
working in Z80 machine or 
assembler language. Appendixed. 
$5.95 plus $1. 

SARGON HANDBOOK 

D. Spracklen. K. Spracklen 
(Hayden) 

Complete documentation covering 
all algorithms in Sargon can be 
found in this guide book. Contains 
complete table of contents, block 
diagram of the program, four part 
introduction, Z-80 listing, index to 
subroutines. Fully annotated. 
$15.95 plus $1 

TRS-80 ASSEMBLY LANGUAGE 
PROGRAMMING 

W. Barden Jr. 
(Radio Shacic) 

Covers Z-80, and introduction to 
Assembly Language, the Radio 
Shack Editor/Assembler and T-Bug, 
and debugging methods; also 
explains how to move data, the use 
of arithmetic, compare, logic, and bit 
operators, shifts, strings, tables, 
input and output, and 12 commonly 
used subroutines. Well indexed and 
illustrated. $3.95 plus $1 

Z-80 SOFTWARE GOURMET GUIDE 
AND COOKBOOK 

N. Wadsworth 
(Sceibi) 

Over 100 usable subroutines, plus 
how to use them. $15.95 plus $1 

TRS-80 DISK AND OTHER 
MYSTERIES 

H. Pennington 
(IJG) 

The serious programmers' guide to 
Disk BASIC and the wonders of 
NEWDOS +. $22.95 plus $1 

6502 SOFTWARE GOURMET GUIDE 
AND COOKBOOK 

R. Findlay 
(Sceibi) 

Includes instruction set, floating 
point and decimal arithmetic, search 
and sort routines, and more. $12.95 
plus $1 



CALCULATING WITH BASIC 

R Guido 
(Sceibi) 

Use your computer to calculate 
home mortgage payments, interest 
rates, payback periods and more. 
Complete routines already worked 
out for problem solving using BASIC 
language. Also includes 
mathematics, finance and statistics, 
mechanical engineering and 
electronics. $8.95 plus $1 
PERSONAL INFORMATION 
MANAGEMENT SYSTEM 
(Sceibi) 

When you're in business you've got 
a personal stake in how information 
is managed. That's because 
information is your key to success. 
PIMS will allow you to unleash the 
power of a microcomputer - and you 
don't have to become a programmer 
first. Use a computer for accounts 
receivable . . . accounts payable . . . 
maintain inventory records . . .run a 
mailing list . . .keep track of credit 
charges. These are just a few of the 
many things you can do with PIMS. 
It is a ready-to-use data base 
management program for computers 
like the Commodore PET and Radio 
Shack TRS-80. You can define and 
construct your own data bases. Each 
record can contain up to ten fields. 
You can search, list and sort. There's 
even a command that let's you sum 
columns of numbers. PIMS provides 
a valuable introduction to data base 
management. Complete source 
listing. $11.95 plus $1 
APL - AN INTERACTIVE 
APPROACH 
L Oilman, A.J, Rose 
(Wiley and Sons) 

This revised second edition of APL 
- An Interactive Approach has been 
renamed to reflect the fact that 
several versions of APL are currently 
being offered. In recognition of 
APL's growing use in business 
applications, more examples have 
been included, and the body of the 
text itself has undergone a modest 
shift in orientation toward 
commercial uses of APL. 

Additional functions and features 
now available in both the IBM and 
Scientific Time Sharing 
implementations have been included 
in this edition, and the chapters on 
workspace management and function 
definition have been substantially 
rewritten providing additional 
graphic aids to the student. Where 
appropriate, sections have been 
included on distinctive features of 
the IBM 5100 Computer. 

For this edition, nearly all the 
example functions in the text have 
been placed in a workspace named 1 
CLASS. If your APL system lacks 
this workspace, it may be obtained 
from Scientific Time Sharing 
Corporation. $16.95 plus $3. 
LITTLE BOOK OF BASIC STYLE 
J,M, Nevison 
(Addison-Wesley) 

Ideal reference for BASIC 
programmer, junior high to research 
scientist. Indexed, illustrated, 151 
pages. $5.95 plus $1 



TRS-80 INTERFACING 

J,A, Titus 

(H,W, Sams & Co,) 

What you need to know to connect 
your TRS-80 to the world. Assumes 
knowledge of some machine 
language programming. $8.95 plus 

$1. 

PATHWAYS THROUGH THE ROM 

R.M. Richardson, R. Fuller, J,T, Phillipp, G, Blank, J. 

Hartford 

(SoftSide Publications) 

The definitive guide to Level II 
BASIC. Includes Super Map by Fuller 
Software. The TRS-80 Disassembled 
Handbook by Robert Richardson, 
HexMem by J. Phillipp, Z-80 
Disassembler by George Blank and 
DOS Map by John Hartford. $19.95 
plus $1 

LEARNING LEVEL II 

Dr. D.A. Lien 
(Compusoft) 

The User's Guide to Radio Shack 
Level II BASIC. $15.95 plus $1 




Z-80 AND 8080 ASSEMBLY 
LANGUAGE PROGRAMMING 

K. Spracklen 
(Hayden) 

The best introduction to assembly 
language we sell. You should have 
experience in BASIC. $7.95 plus $1 

THE SECRET GUIDE TO 
COMPUTERS 

R. Walter 
(Sceibi) 

A quickie course on computers. 
$5.95 plus $1 

MICROCOMPUTER POTPOURRI 

(Sceibi) 

A pocket-sized reference for the 
beginner. Has a really great glossary 
covering all the jargon. Full digest on 
understanding microcomputers. 
$3.95 plus $1 



16 



SoftSlde NOVEMBER 1980 



SAY YOHO 




by Scott Adams 

This month I will be taking a 
look at my new Odyssey series, 
plus I will be covering another way 
to map adventures. 

At the time I developed my 
original adventure, disks were still 
just over the horizon and a TRS-80 
16K Level I was still not an 
unusual sight. Thus my constraints 
were for a fairly complex game to 
be played in a machine with a 
limited amount of memory. This 
meant a reduction in vocabulary 
and also in textual output during 
the game, as well as commands 
having to be limited to one or two 
words at most. 

Today, though, 90% of all 
Apple owners have disks and 
probably at least 50% of the 
TRS-80 owners do too! This gives 
me a medium to develop 
adventure-type games beyond my 
original 16K limitations, by using 
the additional lOOK or so offered 
by the one-drive system. Adams' 
Odyssey will have some special 
additions to it. Some of these new 
features are: 

1) More than one player in an 
Odyssey at one time. Players may 
help (or hinder) one another as 
they see fit! 

2) Full paragraphs instead of 
"baby talk," e.g. "Shoe the horse 
with the horseshoe and the 
hammer and nails." 

3) Longer messages; 

4) Sound effects; and 

5) expanded plot lines. 

To develop this system I have 
actually had to develop a new type 
of computer language which I call 
OIL (Odyssey Interpretive 
Language) which is implemented 
by a special Odyssey assembler 
that generates Odyssey machine 
code. This machine code is then 
implemented on each different 
micro, e.g. Apple, TRS-80, etc., 
through a special host emulator to 
simulate my nonexistent Odyssey 
computer. 

One possibility which I plan to 
explore further will be putting this 
host computer in FORTRAN and 
then running on a sharing system 
like MICRONET or SOURCE 
with maybe 100 players interacting 
in an Odyssey at the same time. 

Currently (as of the Washington 
computer show, Sept., 1980) the 



system is in the final stages of 
implementing a host emulator on a 
TRS-80 32K disk system and 
writing the first Odyssey (which 
has been sketched out and is 
tentatively entitled "Martian 
Odyssey") in OIL to run on the 
emulator. I hope that by the time 
you are reading this, Odyssey 
Number One will be available from 
your local computer store or 
favorite mail order house. Keep in 
mind, however, that this is but a 
hope and not a firm promise! In 
any case, once it does come out I 
hope it will be as much fun to play 
as it was to write. 

Now a look at another way to 
map adventures. 

Each room is represented by a 
box with the name of the room in 
it, and all original items found in 
it noted alongside. (See Figure 1). 
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Directions from a location are 
indicated by a line coming out of 
ANYWHERE on the box, but with 
the direction leaving the box 
indicated by the first letter of that 
direction. 
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FIGURE 2 

Figure 2 shows it is East from 
the grove to the swamp and West 
from the swamp to the grove. In 
the case of being able to go only in 
one direction, an arrow is put at 
the end of the path. (See Figure 3). 



FIGURE 3 
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This indicates that upon leaving 
the grove you go north to the 
forest, but that you cannot return! 

The best way to use this system 
is that, upon entering a location, 
you draw a line representing each 
possible exit and its direction. (See 
Figure 4). Later you connect them 
to rooms as you continue your 
exploration. 



FIGURE 4 

The advantage is that you will 
not forget to explore an exit once 
you get past your initial probe. 
Another advantage of this system 
is that you never need to redraw 
your map as you stick extra 
locations anywhere on your paper. 
(See Figure 5). 

Also notice that on the forest 
the exits N,S,W are available, but 
that they all return to the forest! 
Note also that as additional 
locations were found off the 
swamp, the map was not redrawn. 
Instead, the locations were simply 
put where needed. And since we 
"climb tree" instead of going in a 
particular compass heading, we 
wrote that as directions to leave 
the swamp. 

I hope you'll find this an easy 
system to use. You should find 
that once you start using it, you 
will spend less time mapping or 
wandering around lost than you 
may have in the past! (P.S.: 
Systems analysts may recognize 
this system as a modified HIPO 
Diagram used to indicate program 
flow and control.) 

'Til next month, Happy 
adventuring! 
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NORTH ATLANTIC CONVOY RAIDERS ($15) 

This game is a computer simulation of the Bismarck convoy raid of 1941 The computer controls 
the British convoys and British battleships Will the Bismarck sink the Hood, only to be sunk in turn 
by the Rodney and King George V, as m history'' Or, will the Bismarck cripple or sink the British 
Home Fleet and go rampaging through the convoy lanes'? Your decisions will determine the fate of 
the Bismarck 

This SOLITAIRE game mcludes software and instructions for the following computers TRS-80' 
Level II. 16K Memory Apple II', Applesoft. BASIC, 16K Memory beyond BASIC Pef, 16K Memory 

NUKEWAR ($15) 

NUKEWAR is a computer simulation of a nuclear confrontation between two hypothettcai 
countries You must choose the methods to defend your country either by massive espionage 
efforts, or by building |et fighter-bombers, missiles, submarines, and anti-ballistic missiles 
Meanwhile, your cold and calculating computer will choose its own strategy to defend its country 
while also trying to destroy you utterly' NUKEWAR is very fast-paced and easy to learn, and can be 
en|oyed equally by game players of all ages and levels of experience Best of all. once the nuclear 
war IS over, you can bnng the two countries back to life and try it again' 

This SOLITAIRE game includes software and instructions for the following computers TRS-80' 
Level II. 16K Memory Apple IT, Applesoft' BASIC, 16K Memory beyond BASIC Pef, 16K 
Memory 



PLANET MINERS ($15) 



From 
Avalon Hill 



PLANET MINERS gives one to four players the chance to compete with each other and the 
computer to stake valuable mining claims throughout the solar system m the year 2050 Each player 
must decide which ships to send to which planets and when to try "dirty tricks' like sabotage and 
claim-|umping If there are less than four players, the computer takes the other parts (It can even 
play all by itself) Thus. PLANET MINERS can either be played solitaire or with friends 

This 1-4 player game includes software and instructions for the following computers TRS-80' 
Level II. 16K Memory Apple M". Applesoft' BASIC, 16K Memory beyond BASIC Pet 2001". 16K 
Memory 



B-1 NUCLEAR BOMBER ($15) 



The 
Sah^are Exchange 

TO ORDER TOLL-FREE 
1-800-258-1790 

In NH call 673-5144 



This game gives you an opportunity to be the pilot of a B-1 bomber on a mission over the Soviet 
Union You must fly the plane through the stiff Russian defenses to the target city, bomb it, and 
return home Your computer controls the Soviet air defense bases with their almost unlimited 
numbers of MIGs (fighters) and SAMs ( Surface-to-Air Missiles) Your only chance to get through is 
to rely on the superior technology of your sophisticated ECM (Electronic Counter Measures) and 
self-defense missiles When all else fails, you can try violent evasive maneuvers 

This SOLITAIRE game includes software and instructions for the following computers TRS-80' 
Level II, 16K Memory Apple 11*. Applesoft' BASIC, 16K Memory beyond BASIC Pef. 16K Memory 



MIDWAY CAMPAIGN ($15) 



MIDWAY CAMPAIGN is a computer simulation of the battle for Midway Island Your 
microcomputer controls a huge force of Japanese ships whose objective is to mvade and capture 
Midway Island, If the Japanese can win air superiority over Midway, the success of the invasion is 
virtually guaranteed. If not. they will be forced to turn back to prevent the loss of irreplaceable 
troops who would be totally vulnerable in their invasion craft In the actual engagement, the 
Japanese made several tactical errors which cost them the battle Your computer probably won t 
make the same mistakesi You command the badly outnumbered and outranged US Navy forces 
Your only advantage is surprise 

This SOLITAIRE game includes software and instructions for the following computers TRS-80' 
Level II, 16K Memory Apple tf. Applesoft" BASIC. t6K Memory beyond BASIC Pef, 16K Memory 




NFL-PIX for 1980-1981 SEASON 

******************************** 

Predict this Season's GamesI 

******************************** 

This program will maintain weekly 
team schedules, keep track of scores 
of games played, list current Division 

win-loss standings and -- predict the probable outcome of games! It establishes 
a rolling average of strengths of all teams based on past performance. During the 
last season its prediction was 6% better than the Greek Prognosticator! 

For 16K Level II TRS-80 or Single Disk DOS - Just $19.95 
Please specify tape or disk!! Documentation supplied with either disk or tape. 



* * BY 



T R L L E Y 



80 U.S. Software 

3838 South Warner Street 

Tacoma, WA 98409 

(206) 475-2219 

Check, Money Order, Visa/Mastercard 

TRS-80 is a Trademark of the Tandy Corporation 
80 US Software & 80 US Journal are Divisions of 80 Northwest Publishing Co. 
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CARD DRAW 




by Arthur A. decker 

CARD DRAW 

Card Draw is a 16K S-80 
Subroutine. 

SUBROUTINE TO "MANAGE" 
A DECK OF CARDS 

Most TRS-80 owners are 
familiar with card - playing games 
for computers, especially since a 
Blackjack tape is included with the 
TRS-80. The purpose of this article 
is to acquaint users with some 
methods of "deck management." 

The first method that comes to 
mind is to have the computer select 
a number between one and 52 
(inclusive), then compare it to the 
corresponding element of an array 
in which each element represents 
one particular card. If the number 
in that element of the array 
indicates that the card has already 
been used, the computer starts 
over, randomly selecting a new 
number. 

This method is both slow and 
uses an excessive amount of 



memory for the array. If there is 
only one card left, it may take a 
seemingly endless time to generate 
a random number that corresponds 
to the card. 

The method used in Radio 
Shack's Blackjack game is much 
better, time-wise, than the one 
described above. Also, it can be 
(and is being) used on Level One 
machines. However, it still uses a 
great amount of array space. 

I will not explain the Radio 
Shack method here, but the reader 
many certainly examine a copy of 
Blackjack, beginning at line 200, 
to discover it. 

The following subroutine, which 
can be used in almost any Level 
Two program, uses nine variables, 
and only two of the nine (CD$ and 
CD) must be "preserved" 
throughout the main program. 
(The routine "assumes" that when 
it is first used during a run, CD is 
set to zero. 

When the subroutine is first 
called, or after the cards have all 
been used, CD equals zero, and 
line 1030 is reached. At 1030, a 



1000 ' EFICIENT CARD - DRAWING SUBRBUTINE 
BY ARTHUR A. GLECKLER 
VERSION 800531.1 BAS ii 

1010 'VARIABLES USED ! CD$, Cl$, C2$, CD, CI, C2, CN$, CX, C3 
1015 'CN$ IS THE RETURNED NAffE OF THE CARD 
1020 FCD=1THEN1010 

1030 CDt="":F0RCx=iT052:cD*=CD*+CHR*(cx) ;next:co=i 

1010 C1=LEN(CD$):C2=RND(C1):C3=ASC(MID*(CD»,C2,1)) 
1050 CO$=LEFT*(CO$,C2-1)+RIGHT»(CD»,C1-C2) 
1060 IFLEN(CD$)=OTHENCD=0 

1070 FC3<53THENClt=" OF CLUBS":IFC3<10THENC1»=" OF SPADES"!FC3 
<27THENC1»=" OF HEARTS" :iFC3::HTHENCl$=" OF DIAMONDS" 
1080 FC3>13THENC3=C3-13:GOT01080 

1090 0^J C3 GOTO 1100,1110,1120,1130,1110,1150,1160,1170,1180,119 

0,1200,1210,1220 

HOC C2$="2":GOT01230 

1110 C2$="3":GOT01230 

1120 C2$="1":GOT01230 

1130 C2*="5";GOT01230 

1110 C2«="6":GOT01230 

1150 C2»="7":GOT01230 

1140 C2$="8".*GOT01230 

1170 C2»="9";GOT01230 

1180 C2$="10":GOT01230 

1190 C2»="JACK":GOT01230 

1200 C2»="QUEEN"!GOT01230 

1210 C2J="KING";GOT01230 

1220 C2»="ACE" 

1230 CN«=C2$+C1$:RETURN 



string variable (CD$) is set up 
using the first 52 ASCII 
characters, each representing a 
card. CD is set to one so that 1030 
will not be reached on later calls of 
the subroutine unless CD is 
changed. 

At 1040, a random number is 
chosen which is between one and 
the length of CD$, inclusive. This 
random number, C2, corresponds 
to a character within CD$, the 
ASCII code of which is put into 
C3. 

At 1050, the character indicated 
by C2 is removed from CDS so 
that the card will not be picked 
again. This is accomplished by 
concatenating (fancy word for 
"combining two string variables") 
all the characters to the left of C2 
and all the characters to the right 
of C2 to get a new value for CD$. 

At 1060, the length of CDS is 
checked. If the length is zero, all 
the cards have been used. CD is set 
to zero so that a new string (CDS) 
can be set up the next time the 
subroutine is accessed (line 1030 
will be reached). OD can also be 
used as a flag to the main program 
to indicate that one deck has been 
used, in case the program is only 
supposed to use one deck. 

At 1070, the proper suit is 
calculated using C3. 

At 1080, a loop subtracts 13 
from C3 until C3 is less than 14. 
This is to allow lines 1090 to 1220 
to select the proper card name 
within the suit. 

Finally, at 1230, the suit and 
card names are concatenated as 
CNS, which is returned to the^ 
program as the card's name, m^ 



An Apple One-Liner 


(Applesoft) 


by Dennis Ward 


1 HCM : VTAe 23:t = (t + d i 2 


!T = T - 500 « (T > 500): PRINT 


im i7)j"[)EsiGN *"t: gr : for 


Y = 20 TO 3?: FOR X = 20 TO 


39: COLOR= X I Y / (T + 1)J PLOT 


X.Y: FIOT 39 - Y,X: PLOT 39 - 


X,39 - Y: PLOT Y,39 - XJ NEXT 


x,y: goto 1 
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Board Games-1, 
CS-3001 (16K) 

• Mugwump $7.95 

Mugwump is a board game which uses 
a 10x10 grid on which four friendly 
Mugwumps are hiding. Your mission is to 
locate these mysterious animals and 
capture them. 

• Flip Disc 

Are you an Othello freak? Flip Disc is a 
program which will turn your computer into 
an excellent opponent. Three different skill 
levels, (good, expert, and genius), provide 
an introduction for the novice and con- 
tinuing interest for the experienced player. 

• Wumpus 

In game 1, you scour a network of 
underground caves in search of the prized 
Wumpus. Bagging a Wumpus wins the 
game, but if you accidentally stumble into 
his cave, the Wumpus will enjoy a tasty 
dinner of sauteed computer freak. 

• Wumpus 2 

If you master the dodecahedron cave 
network in Wumpus 1, you may proceed to 
Wumpus 2 which allows you to choose from 
five different caves, or you can design your 
own. 




• Qubic 

Qubic is a three dimensional Tic Tac 
Toe game. The game is played in a 3 
dimensional cube (4x4x4). The object is to 
outwit the computer and place four pieces 
in any straight line. 

• Backgammon 

This is the TRS-80 adaptation of the 
popular board game. Backgammon uses 
graphics and all the standard backgammon 
rules, not a strange computer variation. The 
computer is your opponent in this version, 
written by Scott Adams of "Adventure" 
fame. 



WRITE FOR... 

FREE 

SOFTWARE CATALOG 
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Space Games-3, 
CS-3002 (16K) 

• Ultra-Trek $7.95 

Ultra-Trek is a fast-paced version of 
Star Trek, complete with "real time" action 
graphics, lasers, Nilon space mines, high 
energy photon torpedoes, enemy ships that 
move, and an experimental ray which does 
something different each time you use it. 
You must act quickly to save yourself and 
the Federation. 

• Star Lanes 

Imagine yourself the president of an 
intergalactic shipping company. If you're 
successful, you may be named Imperial 
Advisor on Economic Affairs. Entrepre- 
neurs: to your ships. 

• Star Wars 

If you hate Darth Vader, you'll love Star 
Wars. This real time game is fun for al lens of 
all ages. May the Force be with you! 

• Romulan 

Your mission is to destroy an invading 
Romulan space craft. Maneuver through 
space and around stars looking for the 
deadly enemy, but be careful! The nasty 
.Romulans fire back. 




Air Traffic Controller, 
CS-3006 (16K) $7 95 

This real time machine language 
program puts you in the chair of an air traffic 
controller. There are 27 airplanes — jets and 
prop planes — which must be controlled as 
they land, take off and fly over your air 
space. You give the orders to change 
altitude, turn, maintain a holding pattern, 
clear for approach, and land at your two 
airports. This realistic simulation includes 
navigational beacons, and requires planes 
to take off and land into the wind. Air Traffic 
Controller was written by an air traffic 
controller and is a favorite of the Creative 
Computing staff! 



For the 
SERIOUS 
Game Player 



sensatioRal 
softwape 



J 



Who Is Creative 
Computing? 

Creative Computing consists of five 
divisions serving you. Creative Computing 
magazine is the number 1 magazine of 
software and applications. Creative Com- 
puting Press publishes a wide variety of 
books, art prints, posters and T-shirts for 
the computer enthusiast. And Creative 
Computing Software produces and markets 
software on cassette and floppy disk for a 
wide variety of computers for home, school, 
and small business. 

If your dealer does not carry the full line 
of Creative Computing products, please 
send three first-class stamps for a free 
catalog of products. 
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Welcome to an astonishing new 
experience! ADVENTURE is one of 
the most challenging and inno- 
vative games available for your 
TRS-80. 

• Adventureland 

You wander through an enchanted 
world trying to recover the 13 lost treasures 
and encounter WILD ANIMALS, MAGICAL 
BEINGS, and many other perils and 
puzzles. 

CS-3008 TRS-80 16K Level II $14.95 

CS-3506 TRS-80 48K DISK $24.95 

(Includes Pirate Adventure) 

• Pirate Adventure 

Can you recover LONG JOHN SILVER'S 
lost treasure. 

CS-3007 TRS-80 16K Level II $14.95 

CS-3506 TRS-80 32K DISK $24.95 

(Includes Adventureland) 



• Mission Impossible Adventure 

Will you be able to complete your mission in 
time? Or is the world's first automated 
nuclear reactor doomed? 
CS-3009 TRS-80 16K Level II $14.95 

CS-3507 TRS-80 32K DISK $24.95 

(Includes Voodoo Adventure) 

• Voodoo Castle 

Count Cristo has had a fiendish curse 
put on him by his enemies. Will you be able 
to rescue him or is he forever doomed? 
CS-3010 TRS-80 Level II $14.95 

(Available in November) 
CS-3507 TRS-80 32K DISK $24.95 

(Includes Mission Impossible) 

• The Count 

You'll love this Adventure; in fact, you might 
say it's LOVE AT FIRST BITE . . 
CS-3011 TRS-80 Level II $14.95 

(Available in November) 
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strategy Games, 
CS-3005 (16K) 

Tunnel Vision $7.95 

You are transported into a massive 
labyrinth and must find the exit or be lost 
forever. This is an excellent example of 
three dimensional perspective using TRS- 
80 graphics. 

• Evasion 

In this real time game, you are pursued 
around the game board by an evil-looking 
snake. Variations of play include two 
different speeds and hyper-jumps which 
randomly relocate you on the board. 
Looking for an escape? Try Evasion. 

• Jigsaw 

Jigsaw is a computer-age puzzle game 
making extensive use of TRS-80 graphics. 
The computer generates a random puzzle 
and puzzle board. Using a combination of 
deductive reasoning and luck you must fit 
the graphically represented puzzle piece 
into place. 

• The IVlasters 

Are you a wandering pro or just a 
Sunday golfer who would like to keep in 
practice? Once you're on the green, a 
worm's-eye view is displayed for putting. 




• IMotor Racing 



tvlotor Racing combines real time 
racing action with advanced graphics 
functions. The graphics and animation 
make Motor Racing fun to watch as well as 



y play. 



Pursuit Games, 
CS-3004 (16K) 

• Stocl( Car Race $7.95 

stock Car Race is a real time racing 
game on a road race circuit. 

• lUlaze 

You are timed throughout your run and 
rated on the basis of elapsed time and the 
number of moves required to escape. Nine 
skill levels. 

• Indy Racer 

Indy Racer is a real time racing game 
for the TRS-80. Similar to the popular 
arcade-style driving games. 

• Depth! Charge 

As commander of a destroyer, your 
mission is to destroy as many enemy subs 
as possible in this re-creation of the Battle 
of the Atlantic. 

• Kaleidoscope 

This graphics demonstration program 
turns your TRS-80 into a computer age 
kaleidoscope. 




Creative Computing 
Magazine 

Creative Computing has long been 
Number 1 in applications and software tor 
micros, minis, and time-sharing systems 
for homes, schools and small busi- 
nesses. Loads of applications every 
issue: text editing, graphics, communi- 
cations, artificial intelligence, simula- 
tions, data base and file systems, music 
synthesis, analog control. Complete pro- 
grams with sample runs. Programming 
techniques: sort algorithms, file struc- 
tures, shuffling, etc. Coverage of elec- 
tronic and video games and other related 
consumer electronics products, too. 

Just getting started? Then turn to our 
technology tutorials, learning activities, 
short programs, and problem solving 
pages. No-nonsense book reviews, too. 
Even some fiction and foolishness. 

Subscriptions: 1 year $15, 3 years $40. 

Foreign, add $9/year surface postage, 

$26/year air. 
V ' 

Basic Computer Games ^ 

Edited by David Ahl, this book con- 
tains 101 imaginative and challenging 
games for one, two, or more players — 
Basketball, Craps, Gomoko, Blackjack, 
Even Wins, Super Star Trek, Bombs 
Away, Horserace. Simulate lunar land- 
ings. Play the stock market. Write poetry. 
Draw pictures. 

All programs are complete with listing 
in Microsoft Basic, sample run and 
description. Basic conversion table in- 
cluded. 125, 000 copies in print. 192 pages 
softbound.[6C]$7.50. 




IVIore Basic 
Computer Games 

Contains 84 fascinating and enter- 
taining games for solo and group play — 
evade a man-eating rabbit, crack a safe, 
tame a wild horse, become a millionaire, 
race your Ferrari, joust with a knight, trek 
across the desert on your camel , navigate 
in deep space. 

All games come complete with pro- 
gram listing in Microsoft Basic, sample 
run and description. 192 pages soft- 
bound. [6C2] $7.50. 
V ^ 
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The Best of 
Creative Computing 

The first two years of Creative Com- 
puting magazine have been edited into 
two big blockbuster books. American 
Vocational Journal said of Volume 1, 
"This book is the 'Whole Earth Catalog' of 
computers." [6A] Volume 2 continues in 
the same tradition. "Non-technical in 
approach, its pages are filled with infor- 
mation, articles, games and activities. 
Fun layout." —American Libraries. [6B] 
Each volume $8.95. 




Computer Coin Games 

Computer Coin Games by Joe Weis- 
becker aids newcomers to the field of 
computers by simplifying the concepts of 
computer circuitry through games which 
can be played with a few pennies and full 
sized playing boards in the book. 
Enhanced by outrageous cartoons, 
teachers, students and self-learners of all 
ages will enjoy this 96 page softbound 
book.[10R]$3.95. 



How To Order 

Send order and payment to Creative 
Computing, P.O. Box 789-M, Morris- 
town, NJ 07960. Add $1 .00 shipping and 
handling per order (foreign, $2.50) N.J. 
residents add 5% sales tax. Visa, 
MasterCharge and American Express 
orders welcome. For faster service, call 
In your bank card order toll free to: 
800-631-8112.(ln NJ, call (201) 540-0445.) 



GPeative 
GonepatiRd 
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PRESS DOWN 



PRESSURE RING 



FLOPPY SAVER RING 



CENTERING TOOL 




REMOVE BACKING PAPER 
-AND PLACE RING - 
ADHESIVE SIDE DOWN 



FLOPPY DISC 



in- Star Corporation 

M 




FLOPPY SAVER PREVENTS: 

Computer drive's clamping hub from tearing 
disk's center hole. 

Coating removal, scuffing and dimpling when 
the disk hits the rotating spindle. 

Data loss caused by improper rotation of a 
floppy disk. 

Any damage to Floppy Disk's center hole. 

FLOPPY SAVER KIT consists of: 

Plastic centering tool and pressure ring. 
25 7-mil mylar rings with paper protected 
adhesive backing. 



EASILY installed on disks in seconds. Only one side 
needs the ring. 



for 5 1/4" diskettes •Complete Kit $14.95 • Refill $7.95 

TheSoHw^are Exchange 

TO ORDER: CALL TOLL FREE 



1-800-258-1790 

(In NH call 673-5144) 



AJMQM 

A16K 

COMPUTER 

OPPONENT 

PROGRAM FOR 

THE APPLE II 

AND TRS-80 



"MONTY TM plays 
Monopoly"* is a computer 
opponent program designed to 
be used along with your Parker 
Brothers Monopoly game. You 
will need the board and all ot the 
equipment that comes with the 
game to use this computer 
opponent program. 

MONTY TM provides a new 
dimension in microcomputer 
software. You will come to 
know him as simply another 
player, a bright, entertaining 
guest who provides real 
excitement for many of your 
favorite board games. 

MONTY TM written in 
machine language, works with a 
16K TRS-80 Level II or 16K 
Apple or Apple II plus. Cassette 
$24.95. Diskette $27.95. 




The 

Saitwate 

Exchange 

TO ORDER TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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METEOR STORM 




Meteor Storm is for the 16K 
Level II S-80, any Atari, or any 
Apple with Applesoft. 

by Roy Harper 

You have been chosen as the 
best pilot for the job, only the job 
looks very bad indeed. You are to 
fly ahead of your mother ship and 
blast a path through a severe 
meteor storm. 

This is also a paying proposition. 
You are given points (the monetary 
system is in points) for just staying 
alive by dodging all of the meteors. 
If you don't want to make your 
first million within your own 
lifetime, then just dodge. For each 
meteor you destroy you get 100 
points. When the situation gets to 
be very dangerous, you can go into 
hyperspace. I must warn you to use 
this as few times as possible 
because you could come out of 
hyperspace right on top of a 
meteor, or be hopelessly lost in 
space. Within a short time, 
however, you will be navigating 
through the meteors with the best 
of them. 

Now for the variable list. 
A$ - Used for temporary storage of 
INKEYS and used all over. 
E$ - This is what your shot looks 
like. 

G - This is the PRINT@ location 
of your shot. If it is zero, then you 
aren't shooting. 

HP - High score (I could have used 
HS but I love to drive you crazy). 
HP$ - The name of the high 
scorer. 

I - Used for FOR-NEXT timer 
loops. 

L - The location of your ship in 
video memory. 

P - temporary storage for PEEK 
(14400). 

PO - Your score. 

S - PRINT@ location of the ship. 
SI, S2, S3 - PRINT@ location of 
debris. 

S$ - This is what your ship looks 
like. 

Sl$, S2$, S3$ - What the debris 
looks like. 

T - Used for FOR-NEXT timer 
loops. 

Y$ - Used to ask, "DO YOU 
WANT TO TRY ANOTHER 
MISSION?" 

Now to explain myself a little 



■a 



bit. First, the whole secret to this 
game is the screen's scrolling 
ability. When the screen is made to 
scroll, everything on it seems to go 
flying past. That is the way I 
made such a fast game with such a 
small amount of typing. 

This, however, is the most useful 
technique I have found. You may 
have seen a table that has the 
keyboard memory on it. 
Actually, there is no real memory 
between location 14336 and 15359. 
It is a bunch of switches that were 
mapped into a place in memory. 
First, let's look closely at the row 
of 14400. If you hold down the 
ENTER key, the location 14400 
will contain a 1. If you hold down 
the left arrow, it will contain a 32 
(easy enough so far?). "But what is 
that in binary?" Give that man an 
"A, " because when you hold down 
the ENTER key, it turns on the I's 
bit, and when you hold down the 
left arrow key, it turns on the 32's 
bit, like this (00000001 for enter 
and OOIOOOOO for the left arrow). 
Something very interesting is going 
on here. Each key will turn on one 
of the eight bits in that byte. 
Therefore, when PEEK location 
14400 contains a 32, the left arrow 
is being held down (cheer, cheer, 
hooray!!). HOLD THE PHONE!! 
Something could go wrong! Just 
what could happen to it if the idiot 
at the keyboard was holding down 
the left arrow AND the enter 
key(00 100001)? Then 14400 would 
contain 33 (Nuts, I knew it 
couldn't last). Never fear!! 
LEVEL II BASIC to the rescue!!! 
Do you remember the AND 
function? It is the one that just 
might solve our problem. You see 
the AND function works like this. 
When you have a 33 (OOIOOOOO) 



you get a 32 because in an AND 
function both of the bits in the 
input have to be on for the output 
bit to be on. Here is a table that 
explains what I just said. 

This is called a truth table. The 
computer will AND one bit at a 
time and will take an on bit only 
when both bits in the AND are on. 
If you want to single out one key 
(in any of the PEEK values in 
keyboard "memory"), just AND 
with the value of that key 
(PEEK(14400)AND1 for enter, 
PEEK(14400)AND 128 for space 
bar, etc.). Now if you write out in 
your program . . . 

IF PEEK(14400) and 32 
PRINT "LEFT ARROW" 
. . . and hold down the left arrow, 
it will PRINT the message, "LEFT 
ARROW". Why don't you need to 
say IF PEEK( 14400) and 32 + 32? I 
personally don't know, but it 
works just fine for me. 
[Editor's note: The reason is that 
first, the expression after the IF is 
evaluated; if the result is zero then 
everything after the expression is 
skipped and BASIC "drops 
through" to the next line. If the 
result is NOT zero (in the above 
case the result is 32) then BASIC 
will continue execution with the 
first statement following the 
expression.] 

Now you know how to make 
your programs check to see if the 
user is holding down the left, right, 
up or down arrow, or any 
combination of the arrow keys. 
Use it in good health; after all, you 
just typed it in, and it is in your 
memory. You are encouraged to 
edit the daylights out of my 
program. 

continued on next page 



S-80 One Liner 
by Will Evans 

The following ONE-LINER is 
called SPACE SLALOM. The 
object of the game is to survive for 
as long as possible, thus getting a 
higher score. To do this you must 



avoid colliding with stars 
(represented by *) and remain 
within the boundaries (represented 
by #) of the playing area. To avoid 
collision, use the two left/right 
arrowed keys which move your 
ship in the direction they 
designate. 



1 W=P£EK(H1flO):A=SGN(H)xSGN(H-6e):P=G+15583+A;iFPEEK(P)=920RPEE 
K(P)=32P0KEP,92:PRINTTAB(15)"#";TAB(15+ftND(32))"i";T/»(W)"#";C= 
G+A:C=C+i:GOTOlELSEF'RIMTe207,"»»»»» SPACE CRASH <««««« 

",," score:";c-i5:fora=ito999:next:cls;g=o:c=(i:gotoi 
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S-80 VERSION 

100 CLS:iNPUT"INSTRUCTIONS"iA$:iFLEFT$(A»,l)="Y"THENas:GOT0310 

Lir* 110! Inili3liz3tiorj. If yoo want to plffd again, this 
is where the progran will K)TO. 

no ram)o«:cls![)efinta-z;po=o:l=i539o:s=3o:g=o:s»=chr*(135)+chr* 

(188)+CHR$(139) ;E$=CHRt(133) 

Line 120! This is where I «ake all those pltrs signs go up 
the screen. I put a Meteor at a randoM position at 
the bottofl of the screen arid don't suppress the lire 
feed. The cortpi.iter then scrolls the entire screen 
ijpwards and wakes it look like things are Moving. 
YoLT score is printed in the upper-left corrier. There 
is rio penalty for flying over your score (except for a 
certain aMourit of difficulty in readirig it). 

120 FltrNTeG," ";:FfINTI»RND(62)+960,"+"!PRINTeO,PO; 

Line 130! Right here I firid out which arrow keys you are 
HOLDING DOWN. If you are holding down the left arrow, 
the value at peek location 11100 will be 32. If the 
right arrow is pressed, the value will be 61. More ori 
that later. 

130 P=FEEK(11100) :iFF-32L=L-i:S=S-lELSEIFP=61L=L+l!S=S+l 

Line 110 1 I keep you within liMits right about here. Ariy- 
where between 1 and 61 will do. 

110 IFS<1S=1 :L=L+lELS£ff S>61S=61 :L=L-1 

Line 150! Once I l<riow where you are, I should like to kjow 
if you've been hit. Yoij are sitting at 3 places ori 
the screen and if any of those spaces coritain a Meteor 
(ASC("+")=13) then you have been hit. 

150 IFF'EEK(L)=130RF'EQ;(L+1)=130RPEEK(L+2)=13THEN200 

Lifie 160! If you haven't been hit yet, then I will put yoij 
on the screen. 

160 PRINTI?S,S$; 

Line 170! When G=0, you aren't shooting. Therefore it would 
be nice to find oirt if you wotild like to shoot (rothing 
like having your guns fail you when s Meteor is exaMin- 
ing your nose hairs). If you have jiist hit the space 
bar, theri the shot's position is right in frorit of you. 
If you hit the enter key (CHRt(13)) instead of the 
space bar. yoij will be sent to the hyperspace routire. 

170 IFG=OA$=INf;EY$:iFA$=" "THENG=S+65ELSEIFAl=CHht(13)GOTO250ELS 

E190 

Line 180! This line takes care of the shooting. It Moves 
the shot down to the next line and checks to see that 
it is still on the screen. If so, a check is nade to 
see if a Meteor has been hit. One PEEK finds where it 
is, the other checks to see if it skipped soMething 
(when the shot goes down and the screen scrolls up, it 
May try to skip one of those little buggers). If you 
did hit something, the prograM will go to the 
approriate explosion routine. If you pressed the ENTER 
key, it will go to the hyperspace routine. If you did 
none of the above, then it will put your shot back on 
the screen. If the shot has gone off the bottoM of the 
screen, it will be reset to zero and the IfKEYI buffer 
will be cleared (wasri't that a doozie of a line?). 



180 C=G+6i:iFG<1021IFPEEK(lS3^04G)>32GOSUB23IELSEIFF£EK(lS2964C 
)>32GOStJB210:GOT012iaSEA$=INKEY«:iFA«=CHR$(13)T)EN2SOa.SEPRIKre 

g,e$;elseg=b:a$=inkey$ 

Line 190! This is the botton of the loop. If ;#» ain't dead 
yet, it will add one to your score and Jump back to the 
top of the loop (line 120). 

190 P0=P0+l!GOTO120 

Line 200! This is your ship's explosion routine. It puts a 
white flash ori top of your ship, sets up s»ie varia- 
bles, waits, and theri erases the flash, 

200 PRINTeS-l,STRING$(5,191);:Sl$=LEFT»(S»,l)!S2$=«ID*(S«,2,l):S 
3$=RIGHT»(S»,l)!Sl=S:S2=S+l!S3=S+2!FORI=lTO50!NEXT!PRINTeS-l," 



Line 210! First it erases the old debris. Moves the pieces. 
Makes certain that they are still on the screeri and 
puts theM oTr the screeri again. After that it waits 
a jiffy and does the trfiole thing over again. 

210 PRINT0S1," "i!PRINT0S2," ";!F-RINTeS3," ";:S1=S1+63:S2=S2+61! 
S3=S3+65 ! IFSKl 023ANDS2<1 B2»«fl)S3<l fl23F'RINTeSl , SI $ ; ! PRINTeS2 , S2» 
!!PRINTeS3,S3«;!FORI=lTO50:f£XT!GOTO210 

Line 220! Waits a couple of seconds and Jumps to the "PLAY 
AGAIN?" roi.itine. 

220 FORI=1T01060:NEXT:GOT0270 

Line 230! If yocT shot hits a Meteor, add 100 points to 
yoi.ir score, clear the biiffer, flash the screeri, wait, 
erase it, arid RETURN. 

230 P0=P0+100!A»=INKEY$!F'RINTeG-l,STRING$(3,113);:FORT=lTO30!NEX 
TlPRINTK-l," ";!G=0!RETURN 

Line 210! J.ist like 230 only your shot jUMped over the 
Meteor instead of landirig on it. 

210 P0=P0+100!A$=INKEY$!PRIMTeG-65,STRING$(3,113)J!FORT=lTO30!IC 
)(T!PRINT(?G-65," ";!G=0:RETURN 

Line 250! The hyperspace routine. First it sets your shot 
to zero, then does a neat little trick! if the randoM 
nuMber is 1 then it goes to the "HGFtLESSLY LOST IN 
SPACE" routine! if it is between 2 and 10 then all is 
well (alMost! you still Might larid on a Meteor). 
250 G=0!ONRNO(10)GOTO29fl 

Lirie 260! This is hyperspace. It will Make between 1 and 
75 Meteors go flying ijp the screen (be careful wheri 
using hyperspace in any forM). The extra F1\INT Makes 
thirigs Move a little faster. The T»=INKEY» just 
clears the biiffer. Then back, to the top of the loop. 

260 FORI=lTORND(75)!F'RINTeRND(62)+960,"+"!PRINT!NEXTIT»=DKEY$!G 
OTO120 

Line 270! This is the endgaMe or "PLAY AGAIN?" routine. 
First it checks to see if your score is higher than 
the previoi.is high score. If it is, then it jLHips lo 
lirie 360 otherwise it prints the high scorer and his 
score, theri tells yoij what yoijr score was. 

270 IFP0>HPTHEN360ELSEF'RINTe25,HP$"!"!HF'!:PRINTM58,"YOU EARICD" 
PO "POINTS ON THAT MISSION"! 
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Lire 280! Here you are asked if you warit to play again. 
FTess ENTER if you do, or press "N" and ENTER if you 
don't. If yoij do, coritroi goes to line 110 (the init- 
ializing lirie. 

280 PRINT§523,}:iNPtJT"D0 YOU (WNT TO TRY ANOTHER MISSION" ;Y»:IFL 

EFT»(Y$, 1 )="N"THENENDQ.SE110 

Lines 290 and 3002 This is the hopelessly lost in space 
routine. The tine you spend in hyperspace is a little 
longer so as to nake you nervous (ain't I a stinker?). 
Next, I inforn you that you are hopelessdy lost). 

290 FORI=lTO100:PRINTeRND(62)+960,"+":PRINT:>CXT 

300 PRINTe396,"yOU ARE HOPELfSSLY LOST IN SPACE" :GOT0270 

Lines 310 to 350! Instructions. First I try (perhaps in 
vain) to freak out the inquisitive little brat uho 
wants instructions, then tell hin the (in)correct 
way to play the gane. 

310 FORI=lT030:PfaNTeRND(62)+960,"+"!NEXT:PRINnAe(23)J"METEOR S 

T0R«";PRINnAB(23)r'BY ROY fWfiPER" 

320 PRIMT:PRINT" your MISSION IS TO BLAST A PATH THROUGH A SEVE 

RE METEOR 

STORM. YOU ARE ABLE TO STEER LEFT AM) RIO^ USING TtC LEFT AND 

RIGHT ARRON KEYS. YOUR MISSION ALSO INCLUDES DESTROYING 

330 PRINT"fETE(«S (100 PTS EACH!). LINE YOURSELF UP HITH A METE 

ORAM) 

PRESS TK SPACE BAR TO FIRE. 

ANOTfCR FEATURE OF YOUR SOP IS ITS ABILITY TO GO INTO HYPER- 
SPACE. USE THE ENTER KEY TO DO THIS. A WORD OF CAUTION. BEING 
IN HYPERSPACE DOES NOT ADD 
OR" J 

310 PRINT" SUBTRACT FROM YOUR SCORE. H MAY LW© YOU ON A METEO 
R, OR HOR^ YET, YOU fWY BE HOPELfSSLY LOST IN SPACE. 
GOOD LUCK! 1 1 

350 INPUT"PRESS ENTER TO BEGIN";A$:GOT0110 

Lire 360! This is the Message for the slob who just beat 
yoLT high score (after all, no one should be allowed 
to beat YOUR high score and live (heh, heh)). 

360 HP=PO:CLS:PRINT0118,CH«»(23);"YOU got the HIGH SCORE of"hp:i 
M>UT"ENTER YOUR NAME PLEASE";HP$:CLS:GOT0280 
370 'n K I I X I I X I I II 
380 'XX ROY HARPER ix 



m 'XX ROSEBURG OREGON xx 
120 'XX I X I x I I X X X XX 




ATARI VERSION 

Initialize. OPEN sa-een for input. 

10 GRflfHICS 0OPEH #L4,e,"£^" SETCOLOR 
2,0.0^DIM W$(19).SK3) St(l)=CHRJ!:26) S 
$(2)="U":S«3>=CHRt(3> POKE 752,1 

OPEN keyboard for input If "Y" is 
pressed, print ths instructions. 

15 Din riETEORt(l) rETECR*=CHRj;20>OPEH 
#2.4,0, "K:":? "Instructions""; ^GET #2,A^ 
IF A=89 THEN 400 

OtI-ierwise, skip instructions. 

16 GOTO 500 

X is the position of tl-£ 5t-,ip, SC is 
the score, and G is the missile's row 
(if there is a i»issi1e>. 

28 X=19 SC=0 G=0 

D is zero at first. It is increased ba 
one for ewera 1806 points earned. D 
is then used to control the color of 
space and the nuaber of meteors. 

30 D=INT<SC''1000) SETCOLOR 2,D,0SETCOLO 
R 4,D,0:FOR I=« TO DEPOSITION RND( n*38- 



23^? METEORJ; NEXT I •' 

Oiedc for the presence of a aeteor 
(OR*<20);' in ana of tl-* three posi- 
tions uhere tl-^e shiip is If there is 
one, line 100 takes care of destroains 

!«DU. 

40 POSITION X,0 FOR 1=1 TO 3 GET «1,L IF 
L=28 TI€N PCP GOTO 100 

Redraw sl-ap since GET#1 «aa have 
erased part of it. 

45 ^eXJ I POSITIOH X,8 ? S$i 

Add one to score and print it. 

50 SC=SC+1ePOS!T!0N 5,01" SC; ^POSITION X 
,0? S*; 

Oieck for stick siotion to tt-,e left 
(includins diisonal (flotioTi). If pos- 
sible, iWi.'S st-.iP left. 

70 P=STICK(8;' IF P>S (*D P<12 AM) X>0 TH 
EN X=X-1 

Ofick for awtion to tl-* risl-.t <as in 
line 70>. 

88 IF P>4 IttI P<8 AND X<3e THEN X=X+1 

If stick is pressed forward, so to tF.e 
haperspace routine at line 200. 

85 IF P=14 T}CH 286 

If trisser is pressed and if tl-ere is 
no missile tl-.eri firs one 

87 IF £TR!C<S>-g AND G=8 THEN C=X-^rU=!4 
^GOSUB .3013 



If a iiiissi 
sit ion. 



eiiists.. Uf-dits its po- 



88 IF i:;>0 THEN GCSUE 380 

Repeat eye Is 
90 GOTO 38 

Erase missile if t^are is one. 

100 IF G)e Tf€H F-eSITUX CG-l^? " ", 

Erase ship and coiapute locations for 
debris- L=!eft, Oocenter, R=rist-,t. 



105 Pie!TI>>l x,e ■? •" 
rPOSITIi>l 5,0:'- SC; 



:L=X-R=X+2C=X+ 



Ship explosion and e;<plosion sounds 
(at line 700>. 

110 FOR Y=l TO 22L=L-1 IF L<0 THEN L=38 

128 R=R+1 '■ IF R>38 THEN R=0 

138 POSITION L,Ye" CHRJ<:26); ^POSITION C, 

Y:7 "U"; POSITION R..Y ■"' CHR$(3>; GOSLB 7 

00 

158 POSITION. L,Y? " "; FtEITION C,Y? " 
",EpOSITION R.Y^' » ", 
160 NEXT Y 

Ti*~n off sounds. If player's score is 
better W-,an all pre^-'ious plaaers, set 
plaaer's name 

178 FOR 1=0 TO 3 StMHD I,e,e,a^NEXT I IF 
a;>HP THEN 608 

Print best score and na«e of planer 
■ho sot it. TV*n print current score. 

188 -POSITION 15,8 ? t«; " ";*ePOS!TI0N 
1,12^? 'You earned ■;SC;" points on ti-^t 
aission"; POSITION 1,14 GOTO 488 

That's all folks! 

199 END 

hbiperspace routine. Deactii.'ate sis- 
si 1e and its soind. Increase loutiess 
of. space noise 

continued on next page 
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2ee G=e soLMJ ea.e.HsixM) 1,8,0,0 

Set brightness of space to jiiaxiiiiuiii 
tt-ius creatins t^■e illusioti tl-.it the 
■eteof^s h^'je 9one dari; . Prepare to 1 1 m 
aaons 10-75 meteot'S en our yoaase 
tfiToush haperspace 

210 SETCOLOR 2,0, M SETOXCfi' 4,0,14 FOR 
1=1 TO RrtX'0VS56+9 

Draw iiieteors. Return to nCTinal space 
after restorins .•wrina> sou-rJs and 
colors, 

220 PO£ITIi» RN&;i>:£38,23 ? METDJ!?* hE«n 
I^SETCOLOR 2,D,0^SETCOLa? 4,0,6 .Sd-HD 8 
,1,0,6:GOTO 36 

Missile handl ins routirs. Erase old 
nissile. 

300 SOUNO l,25,4,I.HW<:',Ke;'U=li-l IF GM 
T«H POSITION CG-!^- " ", 

Oieck tor missile leavirs bottaii of 
screeti . 

305 G=G+1 ^ IF G=24 THEN 340 

See it position 'J-^ere missile will be 
redrawn cori tains a meteor. 

310 POSITIOt-l C,G GET #1,L^P0SIT1») C,G - 
CHRfa ); IF L=2W THEN 338 

ftlso cl-ieck pre'.'i'Xe rc*i in case iiieteor 
Hias scrolled past missile 

315 POSITION CG-l^GET #1,L POSITION C,G 
-1^? CH»(L;'; IF L=20 TI€H G=G-! GOTO 33 

e 

If missile l-,as not Kit a meteor, 
re<t"aw Wie missile ori tF* riext lower 
row. 

320 POSITION C,G? CHW!:i24,\: RETURN 

Missile Fas hit a ireteor Make appro- . 
priate sotjnd 

338 FOR 1=90 TO B STEP -5 SOUND 1,1,16,1 
4 NEXT I 

ftdd 100 points to score Erase center 
of meteor. 

331 SC=SC+100 POSITION CG^*? "0"; FOR 1= 
1 TO 10 NEXT I 

Shrink aetaof; until it is sone 

332 POSITION C,G^? "o", FOR 1=1 TO 10 NE 
XT IMPOSITION C,G ? "." 

335 FOR 1=1 TO 10:f€XT I FOSITIOH CG^^ 



Rejoin our prosran "already in pno- 



348 G=8 RETURN 

Instructions 

408 FOR 1=1 TO 24 POSITION RMXl)t38,23M 
? ftTEORS t€XT I •? ■«* ft E T E R 
STORM «*" 

418 ? "BY ROY HflfiPER"? ? " Yotr nissi 
on is to blast a patt-.*? 'throush a seve 
re fteteor Stor«. You" 
428 ? "are able to steer left and risht 
with" ? 'the JoBSticfc You" mission als 
o" ? "includes destroMins meteors." 
425 ? " (at 100 points each! )" 
438 ? " Line ao<j~self up with a meteor 
and" ■ ? "press tVie f ire-button on the Joa 
stick"; 

440 ? " Another feature of aour ship is 
its abilitM to enter rt«»erspice Press 
"■? "forward on tF« JoMStick"; 
450 ?" to do tF.is "M? "A word of cautio 
n' beire in rt#>erspacedoes riot add or su 
btract from aour" 

468 ? "score It maM e-.'en land aou in a 
":? "meteor!" ? " One final note- for e 
ach 1000 pointsaou score,"; 



470 ? " tF* sa«e becoiiies more dif- ficul 
t."MPOSITIOH 15,23 ■' "Good Luck'M" 
480 •' ? "Pull BAO; or, tF* Joystick t^ p 
laa ..."; 

Wait for plaaer to tus on Joastick 

490 IF STICKXeX>13 THEN 490 

Make space black. Make blast-off sourid 
and besin same. 

500 SETCOLOR 2,8,8 SETOXUI^' 4,0,0 " CHR'* 
<125> SOUttJ 1,8,0,9 FijR 1=255 TO 1 STEP 
-1 ■- SOUHO 0, 1 , 8, b M NEST I ^ GOTO 28 

Plaaer lias attained Kish score. Let 
plaaer tape Kis'Ket~ name for- all to 
see 

600 ? CHF;t( !2S":'."Y0U GOT THE HHIH SCORE 
OF" :? SC;" roiHTS." ' "ENTER YfjUR NAME P 
LEASE"; IhfUT HPt • HP=SC IJJTO 438 

Sound of explosion wFen paser lias been 
hit ba a meteor. 

700 FOR !=e TO 3 SOUND I,RWD< ! >:J255.2S:!+ 
2, 14-Y.tl4.-'22^€:>;T I RETURN 
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APPLE VERSION 

James Garon and Mark Pelczarski 

The one distinctive feature of 
the Apple Meteor Storm program 
is its use of text commands to 
produce low resolution graphics. 
The S-80 and Atari both have 
graphics symbols that can be put 
on a text screen. The Meteor 
Storm program uses the text screen 
for its motion by scrolling the 
entire display and only redrawing 
the ship at the top of the screen. 
This gives the effect of the ship 
moving at the meteors, when in 
actuaUty it's the opposite. The 
problem in converting the program 
to Apple was the discrete graphics 
and text modes. To use the 
scrolling, one would be confined 
using text characters as the only 
graphics ('x' as a meteor, for 
example). 

After a bit of playing around, 
however, we discovered that you 
could trick the computer into 
thinking it's displaying low 
resolution graphics. The first step 
is to clear the screen and go into 
Lo-Res graphics mode (see line 
110). When you set Lo-Res 
graphics, the text window is 
reduced to the bottom four lines. 
Hidden away in the Applesoft 
manual is a POKE command that 
lets you set the top of the test 
window wherever you want. 
Surprise! Poking that location with 
a zero (the top line on the screen) 
suddenly allows us to print 
anywhere - not just the bottom 
four lines. But anything printed 
above those four lines is still 
interpreted as a graphics character 
(actually two characters stacked on 
one another; a text character is 
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twice as tall as a Lo-Res graphics 
block). Furthermore, when the 
screen is scrolled, now the entire 
page moves up, graphics and all, 
instead of only the bottom four 
text lines. 

The trick now is to discover 
what to print to get the graphics 
colors you desire. For that we 
turned to pages 15 and 17 of the 
Apple Reference manual (spiral 
bound version) where there are 
tables of all the ASCII characters 
and the color codes for Lo-Res 
graphic blocks. One text character 
will print two graphics characters. 
Working by the hex codes, if we 
wanted a light green block ($C) on 
a pink block ($B), you print the 
character $BC, which in the ASCII 
table is a Normal ' ' (as opposed 
to Inverse or Flashing). It gets a 
little messy, but you can now see 
why a line of background 
characters (L$) is set to CHR$(34). 
34 in hex is $22, which gives two 
dark blue blocks. Each graphics 
shape was created the same way 
-deciding the colors needed and 
then finding the corresponding 
characters. 

A-counts how many thousands of 
points the player has, controlling 
the meteor colors. 
A$-user answer 
B-A mod 4 (meteor color) 

B$-one character of background 
color 

E$-character used for missile (the 
right bracket is a Shift-M) 

F-flag that tells in which line the hit 
meteor is in. 

G-row in which missile is 

H-used in checking whether meteor 
is hit (each time two rows must be 
checked since the missile advances 
and the screen scrolls) 

HP-high player score 

HP$-high player's name 

I-loop index 

L$-one line of background characters 

M$(0-3)-meteor characters; four 
variations, dependent on score. 

P-paddle setting (-1,0,1) 

PI -score 

S-horizontal location of ship 

S$-ship characters 

Sl,S2,S3-locations for ship frag- 
ments after explosion 

T-timing loop counter after meteor 
is hit 

Y-vertical location of ship frag- 
ments after collision 



Initialize backgroi.irid string and 
Meteor characters. 

90 L$ = ""J FOR I = 1 TO 10JL* = 
L» + CHR$ (31): NEXT : FOR 
I = TO 3: READ M$(I): NEXT 
: DATA e,H,D,X 

100 TEXT ; WRtVL J HOME J PRINT 

"iNSTRucnoNs?";: get a$: if 

A$ = "Y" then home 5 goto 3 
10 

Set Text-Graphics node arid 
initialization of other 
character-graphics. 

110 HOME : GR .♦ FW'vE 3i,o:pi = 
:si = i:s = 2o:g = i;s$ = "♦ 
2#"JE» = "rm = chr* (31) 
!A = o:b = 

Clear screeri to background. 
115 INltRSE : FOR I = 1 TO ZflJ VTAB 

i: F-RINT Li;: next 

Check if change in ncinber of 
thousands of points. 

120 IF A < > INT (PI / 1000) THEN 
A = A + 1:B = B - 1 X (B > 2 
) + I 

Place Meteors. 

125 UTAB G: HTAE: Si: PRINT B$: NORM/U. 

: VTA£! 2i: HTA8 K PRINT Pi; 

: INVERSE : FOR I = TO INT 

(PI / 1000): VIAE: 20: HTAB 1 

+ INT ( RND (1) « 39): PRINT 

M$(B): m.j 

Check patklle. 

130 P = INT (( FDL (0) - 2) / 25 

i):s = S + P 
HO F S < 1 THEN S = 1 
115 IF S > 38 Tf€N S = 38 

Check for collision. 

150 IF SCRNf S - 1,2) < > 2 OR 

SCRN( S,2) < > 2 OR SCRN( 

S + 1,2) < > 2 THEN VTAB 2 

V, F^RINT : VTAB 20 : PRINT L» 

;: GOTO 200 

Print next row. 
1611 VTAB 21.* PRINT : ITAB 20: PRINT 

L$;: VTAB i: htab s: print s 
*; 



Check for firing. 

170 ff G = 1 AND PEEK ( - 16287 
) > 127 THEN G = 2:S1 = S + 
i: GOTO 180 

Check for hyperspace (keystroke). 

171 IF PEEK ( - 16381) > 127 ThCN 
250 

172 ff G = 1 THEN 190 

Missile routine. 

175 IF G > 19 TTCN G = i: GOTO 1 

90 
180 G = G + i: F SCRN( SI - 1,G 
+ G - 1) < > 2 THEN GOSUB 
230 : GOTO 120 
182 VTAB G: HTAB Si: NORMAL : PRINT 

E*;: INVERSE 
185 F = fl:H = G - i: F SCRN( Si 
- 1,H + H - 1) < > 2 THEN 

G = h:f = i: GosiB 230 

190 PI = PI + 1: GOTO 120 
Collision. 
200 VTAB 21: HTAB i: NOWWL : PRINT 

pi;:y = i:si = s:s2 = s + 1: 

S3 = S + 2 
210 INVERSE : VTAB Y: HTAB Si: PRINT 

B$;: HTAes2: print b$;: htab 
S3: print b$;:y = y + 1: f 
Y < 20 tjcn SI = SI - 1 + 39 

1 (SI < 2):S3 = S3 + 1 - 38 
I (S > 39): VTAB Y: htab SI 

: print "#";: htab s2: print 
"2";: htab ss: print ■■♦";: for 
I = 1 to 150: HEXJ : GOTO 21 


220 NORMAL : FOR I = 1 TO IflOO: NEXT 
: GOTO 270 

Meteor is hit. 

230 PI = PI + lOO: HTAB SI - i: VTAB 
G: PRINT "333": FOR T = 1 TO 
30: NEXT : HTAB SI - i: VTAB 

g: fiont chr$ od; chr* (3 

d; chr$ (31): f f = i then 

VTAB g + 1: htab si: print 

B$ 
235 G = i: return 

Hyperspace. 

250 INVERSE : POKE - 16368,0:G = 
i: FOR I = 1 TO 10 + RND (1 
) 1 70: VTAB 2i: PRINT : VTAB 
20: HTAB i: PRINT L$: VTAB 2 
O: HTAB 1 + INT ( RND (1) I 
10): PRINT M$(B): NEXT : GOTO 
12fl 



End of qshB, 
270 VTAB 22: IF PI > HP THEN 360 

275 HTAB 15: PRINT HP$r':";HP: PRINT 
"YOU EARNED ";Pir' POINTS ON 
TWT MISSION" 

280 PRINT "DO YOU WANT TO TRY AN 
OTHER MISSION?";: GET A$: IF 
M < > "H" THEN 110 

285 TEXT : HOME : DO 

Instructions. 

310 FOR I = 1 TO K: VTAB 2i: HTAB 
1 + RM) (1) 1 10: PRINT "0" 
: tEXT : HTAB 13: PRINT "MET 
EOR STORM": HTAB 13: PRINT " 
BY ROY HARPER": PRINT "AFfLE 
TRANSLATION : GARON AND Pa 
CZARSta 
320 PRINT : PRINT " YOU* MISSION 
IS TO BLAST A PATH THROUGHA 
SEVERE METEOR STORM. YOU A 
RE ABLE TO SFER LEFT AND RI 
GHT USING PADDLE ZERO. YOUR 
MISSION ALSO INCLUDES DESTRO 
YING ftTEORS (AT 100 FfllNT 
S EACH!). LINE " 
330 F-RINT "YOURSELF UP WITH A ME 
TEOR AND PRESS THE PADOLE-BU 
HON TO FFE.": PRINT " ANOT 
\€R FEATURE OF YOWi SHIP IS 
ITS": PRINT "ABILITY TO ENTE 
R HYPERSPACE. PRESS ANY KEY 
TO DO THIS. A WORD OF CAUH 
on: ^MLEBEING IN HYPER9>ACE 
DOES mi "', 
310 PRINT "ADD TO OR StBTRACT F 
ROM YOUR SCORE, IT HAY EVEN 
LAND YOU ON A METEOR (IN H 
MICH CASE -": PRINT "YOUR MI 
SSIONISOO!)": PRINT : HTAB 
13: PRINT "GOffl) LUCK!!!": PRINT 
: PRINT 
Note: this roijtine at the end of 
the instructions fools aroLrd with 
the width of the text window and 
scrolling. Poking 32 sets the 
left edge of the window, and poking 
33 sets the width. 
350 HTAB 8: PRINT "PRESS ANY KEY 
TO BEGIN";: POKE - 16368,0 
: GET A$: FOR I = 1 TO 20: POKE 
32,20 - i: POKE 33,2 i i: PRINT 
: PRM : NEXT : FOR I = 1 TO 
2i: PRINT : NEXT : GOTO 110 
360 NORMAL :HP = Pi: HTAB i: PRINT 
"YOU GOT THE HIGH SCORE OF " 
;HP: INPUT "ENTER YOUR NAME 

please: ";fF$: goto 280 
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At HAYDEN,The Best Has Gotten Better. 

Sargon, the program that came in first in the Creative Computing 
Microcomputer Chess Tournament, has become Sargon II. The game 
has been vastly improved and now has a faster response time. A new 
Level has been incorporated for beginners. The board is easier to 
pre-set and there is now a Hint mode that provides suggestions from 
the computer. Sargon II took on the maxi-computers in the West 
Coast tournament and finished in the money! Shows more thinking 
power than you ever expected. 
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Sargon II 16K Level II Cassette $29.95 (TRS-80) 

Sargon II 24K Cassette Machine Language $29.95 (Apple) 

Sargon II 32K Disk $34.95 (TRS-80) 

Sargon II 48K Disk Machine Language $34.95 (Apple) 



r 



I I 4 



6 SouthStrect,Box 68, Milford,NH 03055 603-673-5144 
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TO ORDER TOLL-FREE (In NH call 673-5144) 

1-800-258-1790 
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GAME DESIGN 




by Ron Potkin 

Ron Potkin also wrote our 
feature program for this issue, 
Kriegspiel. 

The most important point to 
bear in mind when designing a 
computerized game, is that the 
computer is merely a tool. It 
should be as unobtrusive as 
possible: Do not try to introduce 
features that detract from the 
playing of the game. Making the 
game playable and absorbing is a 
must. 

If you have a good idea for a 
game do not spoil it by not paying 
attention to detail. We can take it 
for granted that it will work 
satisfactorily and do all that you 
intended it to do, but will it appeal 
to anyone else? It's all a question 
of cosmetics. 

Pay attention to rhythm - do 
everything you can to get rid of 
irritating delays. On the other 
hand, it may be that you must 
introduce timing delays - make 
sure they are the right length. 

Try to keep the player's 
attention. Do all you can to keep 
processing to a minimum. If a 
particular routine causes a long 
delay, think about converting it to 
machine language, using the string 
packing technique. It takes time, 
but the final result is worth the 
effort. 

Avoid scrolling the screen after 
every turn. It should be possible to 
keep the board or cards on the 
screen at all times and update it 
using the "PRINT @" function. 
Use a flashing routine so that the 
player can see what has happened. 

If possible, use graphics rather 
than keyboard characters. The 
letters tend to strain the eyes after 
a time and are unrealistic. In 
"STUD POKER," graphics were 
used to indicate the suit. This was 
easier to follow then merely "JC." 

Should sound be introduced? 
One needs to think about this 
carefully. Sometimes, particularly 
in arcade type games, sound is a 
must, but in others is it really 
desirable? In "KRIEGSPIEL" I 
decided that tanks should not fire 
at each other with laser beams, so 
I omitted it. I also felt that it 



would distract the player. This is 
an example of putting the 
computer before the game. 

Keep the input requirements 
simple. Don't ask the player to 
enter complicated angles to the 
nearest degree. After all, that's 
what computers are for. If I knew 
the answer, I would not have 
bought one! 

Comments are another problem. 
Naturally, they are needed to 
insure that the player knows the 
rules and is corrected if he makes a 
mistake, but do not use them 
unless they are apt. They can be 
comical but - and this should be a 
cardinal rule of computer games - 
do not talk down to the player or 
be rude. The first time it may be 
funny but he probably will not 
play it again. The trouble with 
comments that are included just to 
liven up the game is that they tend 
to be repetitive and therefore a 
large number of them are needed 
(60 to 80 is not unreasonable) so 
that they repeat at infrequent 
intervals. That will eat up a great 
deal of memory, so if you are not 
sure, they should be omitted. 

Finally, play the game as often 
as you can and check the points 
above. Did you become bored? If 
you did then so will everyone else 
and sooner. Come back to it after 
a month. Does it still appeal to 
you? It does? That's good. Send it 
to our friends at "SOFTSIDE." 
Provided it is original they may be 
interested. ^^ 

S-80 PROGRAMMING HINT 

If when typing in a long line the 
computer will not accept any more 
characters, enter as much as you 
can and then EDIT the line, type 
X, and continue typing. You 
should be able to insert about 15 
more characters. 

If you operate in Level II 
BASIC with an expansion interface 
and you wish to return to the 
MEMORY SIZE question, type: 
SYSTEM 
/1I7 

This is the exit used by the DOS 
BASIC 2 command. 

Joe Sewell 
Melbourne, Florida 
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Preferred by 
computer 
professionals 
everywhere! 



The 
Green 
Screen 



The BEST green 

screen available! 

Solid, thick green 

plastic with beveled 

edges. Don't confuse 

this with the thin film 

offered by other 

manufacturers. Ready 

to install, self 

bonding, gives 

dustproof seal, 

optically correct with 

no distortion, and 

shatterproof. Fits 

TRS-80 Model I 



$19.95 



TO ORDER TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 
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SOFTSIDE'S DATA BASE 




by Mark Pelczarski 

S-80 translation by James Garon, 
Atari translation by Rich Bouchard 

Part Three - Sorting 

Now that you can put things 
into your data base, modify them, 
and get them back out, it's time to 
consider what can be done with 
information that's been stored. 
This month we'll add a sorting 
routine that will allow you to sort 
in ascending or descending order 
on any heading. Ascending order 
would be used for something like 
alphabetizing a Hst of names. 
Descending order would be used to 
list amounts from greatest to 
smallest, for example. Next month 
we'll add a search routine that will 
allow you to find an item or group 
of items quickly and easily, 
without needing to know record 
numbers. 

The type of sorting routine that 
we chose is actually the brute force 
method. The technique is to simply 
go through the entire list and find 
the smallest item, put it in position 
one, find the next smallest, put it 
in position two, and so on. It's not 
the fastest sorting routine around, 
but in our case it does work better 
than some that would usually be 
faster. If there are N items in the 
list, only N-1 interchanges are 
made. The advantage this creates 
with our program is that an 
interchange (swapping the 
positions of two items) actually 
requires a switch of each pair of 
items across the record (names, 
addresses, phone numbers, etc., 
instead of just the name). Being 
rather time consuming, it's nice to 
minimize the number of swaps. 
Once again, in the future we'll 
have occasion to talk about much 
more elegant methods of sorting. 

The actual routine itself is rather 
short. Two hues must be added in 
the main routine to present and 
accept the sort option. (In the 
Atari version, we've also added a 
couple of TRAP statements that 
will catch a blank input and not 
crash the program. We also had to 
dimension a temporary string 
variable, T$, that will be used in 
the interchange process. This is 
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done in both the load and add 
routines, which is where the record 
length is calculated.) The first line 
of the routine checks if there is 
anything actually there to sort. 
Then in lines 7010 to 7050 the user 
is asked to choose the heading 
under which the sort should be 
performed (the choice is stored in 
Jl). In lines 7060 to 7090 the user 
chooses ascending or descending 
order for the sort. A switch. A, is 
set to 1 for ascending, or 2 for 
descending. 

The main loop of the sort 
routine goes from line 7100 to line 
7180, and uses T as a counter 
from position in the array to the 
next to last (NI-1) position. Each 
time through this loop the smallest 
(or largest) item remaining will be 
selected and put in the Ith 
position. To do this, another 
variable T keeps track of the 
smallest item found at any given 
point. It starts out equal to I, since 
none of the other elements have 
been checked. Then the inner loop 
(7120-7145) compares the Tth 
element with each other element to 
the end of the list, changing T if it 
finds something smaller. Line 7122 
just prints something on the screen 
for you to count while you wait 
(and can be removed). The 
numbers printed are the loop 
counters and should give you an 
idea of how the sort progresses. 
Line 7125 simply directs the 
program to the proper IF 
statement, depending on the value 
of A. Upon completion of the 
inner loop, T holds the index of 
the smallest or largest item. If this 
happens to be the Ith element, the 
interchange is skipped; otherwise 
the loop from 7150 to 7170 swaps 
the Ith and Tth records. T$ is used 
as a temporary holding variable, 
which is necessary for 
interchanges. The last step is to set 
the save switch (SS) to zero, 
meaning a change in the file has 
been made since the last time it 
was saved. 

Data Base Input 

Dear SoftSide, 

September's DEVELOPING 
DATA BASE is fantastic. The 
only problem I had was in 
predicting output appearance for 
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long strings. Changing line 4020 to 

4020 PRINT H$(J);: PRINT 
":",: INPUT "";I$(NI,J) 
gives an input format which 
matches the output format. 

Frank Coker 
Valley Cottage, N.Y. 





APPLE LISTING 


260 


PRINT "(T) SORT" 


370 


F A$ = "T" THEN l^USUB 7000 




i GOTO 200 


6999 


REM SORT SUBROUTINE V.l 


7000 


IF NI = - 1 T1€N GOSUB 90 




OO: RETURN 


7010 


PRINT : FOR J = TO NH 


7020 


PRINT "(";J + H") ",'H$(J) 


7030 


fCXT J 


7010 


INPUT "SORT ON m.{M HEADIN 




G?"|J1 


7015 Jl = Jl - 1 


7050 F Jl< OR Jl > NH THEN RETURN 


7060 


PRINT "(A) ASCEWING, OR (D 




) DESCBBING": GET M 


7070 


F A$ = "A" THEN A = 1*. GOTO 




7100 


7080 


F Ai = "D" THEN A = 2: GOTO 




7100 


7090 


GOTO 7060 


7100 


FOR I = TO NI - 1 


7110 T = I 


7120 


FOR 11 = T + 1 TO NI 


7122 


PRINT 15" ";il 


7125 


ON A GOTO 7130,7110 


7130 


IF I$(I1,J1) < I$(T,J1) THEN 




T = 11 


7135 


GOTO 7115 


7110 


IF I$(I1,J1) > «(T,J1) THEN 




T = 11 


7115 


NEXT 11 


7150 


F T = I THEN 7180 


7155 


FOR J = TO NH 


7160 T$ = I*(T,J):i$(T,J) = I$(I, 




J):i$(I,J) =T» 


7170 


f£XT J 


7180 


NEXT I 


7200 SS = O: RETURN 
] 



ATARI LISTING 

110 TRAP iio:fwnt "}(I) initialize a fE 

H DATA SET" 

200 TRAP 200,*Rl.=(NH+l)i!lL;FfiIMT ">(S) SA 

1^ CUFRENT DATA" 

260 FflflT "(T) SOFT" 

370 IF CHF;f(A)="T" THEN GOSUB ZOOOIGOTO 

200 

1013 INFUT ♦1,IL:DIM T«(fWHL+IL) 

1001 IF ICO THEN 1010 

1005 PRINT "ENTER MAXIMUM ITEM LEMGTH";; 

mm iL 

1006 PPM :PRINT "F£C0FD NUMEtP "INI+l! 
F'RINT 

1008 IF IL<1 THEN IL=0:GOTO 1005 
100° DIM T$(NHxIL+IL) 

6999 REM SOF;T SUEWXITINE V.l 

7000 IF NI--1 THEN GOSUB 9000:RETUF;N 
7010 PRINT :F0R J=0 TO NH 

7020 PRINT "(";j+i;")";h$(Jxhl+i,jih+h. 

) 

7030 NEXT J 

7010 ? IFflNT "SOF:T WHICH HEADING"! :ihftJ 

T Jl 

7015 J1=J1-1 



7050 if jko or jdnh then retuwi 

7060 ? sprint "(a) ascending, of: (d) des 

cenoinc":get #2, a 

7070 IF CHR$(A)="A" THEN A=1:GOTO 7100 
7060 IF CHf;-»(A)="D" THEN A=2:G0T0 7100 
7090 GOTO 7060 
7100 FOP 1=0 TO NI-1 
7110 T=I 

7120 FOF; I1=T+1 TO NI 
7122 PRINT i;" ";il 
7125 ON A GOTO 7130,7110 
7130 IF I$(Il»RL+l+Jl«IL,IlxRL+JlxIL+IL) 
:i<(TxRL+l+JlxIL,TxFt+JliIL+IL) THEN T=I 
1 

7135 GOTO 7115 

7110 IF I*(Ili1<L+l+Jl*IL,IliRL+JlxIL+IL) 
>I*(TxRL+l+JlxlL,T)«F:L+JlxIL+IL) THEN T=I 
1 

7115 NEXT II 
7150 IF T=I TftN 7180 
7160 T$=I* ( TxRL+1 , TxRL+RL ) :i$ ( TxRL+1 , TxR 
L+RL)=I»(IxRL+l,I)«RL+RL);«(I'«RL+l,lxRL+ 
R1)=T$ 
7180 NEXT I 
7200 S3:^0;RETURN 



S-80 VERSION 

260 PRINT "(T) SORT" 

370 F A$ = "T" GDSUe 7000;GOTO 200 

6999 REM SORT SUBROUTINE V.l 

7000 IF NX = -1 GOSUEi 9000:RETURN 
7010 PRINTIFOR J=0 TO NH 

7020 PRINT "("I J+1 ',")"', H«(J) 

7030 NEXT J 

7010 imn "SORT on miCH HEADING";J1 

7015 Jl = Jl-1 

7050 IF JKO OR Ji:>f#i RETURN 

7060 F'RINT "(A) ASCEfCING OR (D) DESCENDING" I GOSUB 60000 

7070 F A»="A" THEN A=i:a)TO 7100 

7080 F A$="D" THEN A=2:G0T0 7100 

7090- GOTO 7060 

7100 FOR 1=0 TO NI-1 

7110 T=I 

7120 FOR I1=T+1 TO NI 

7122 PRINT e96o,i;ii; 

7125 m A GOTO 7130,7110 

7130 IF I$(I1,J1) < I»(T,J1) THEN T=ll 

7135 GOTO 7115 

7110 IF I*(I1,J1) > I»(T,J1) THEN T=I1 

7115 NEXT II 

7150 IF T=I THEN 7180 

7155 FOR J=0 TO NH 

7160 T$ = H(T,j):i»(T,j) = i$(i,j):i*(i,j) = n 

7170 NEXT J 
7180 NEXT I 
7200 SS=OJRETURN 
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seRsatioRal 
software 

ADVANCED 

AIR TRAFFIC 

CONTROLLER 

This real-time machine language 
program puts you in the chair of a 
busy air-traffic controller. 27 prop 
planes and jets are depending on 
you as they take off, land and fly 
over your airspace. You give orders 
to turn, maintain a holding pattern, 
change altitude, approach and land 
at either of two airports. 

Written by an air traffic controller, 
this realistic fast-paced simulation 
includes navigational beacons and 
the requirement that planes take off 
and land into the wind. The 
program's continuously variable 
skill level assures that you wont 
soon tire of this instructive and 
absorbing simulation. 

In Air Traffic ControJIer you 
assume responsibility for the safe 
flow of air traffic within a 15 x 25 
mile area up to 5,000 feet in altitude 
During your shift as a controller in 
charge of this airspace 26 aircraft 
become active and under your 
control Jets and prop planes have 
to be guided to and from the two 
airports, navigational beacons and 
ten entry/exit fixes. The aircraft 
enter the controller's airspace at 
various altitudes and headings 
whether or not you are ready. 

Air Traffic Controller retains the 
basic realism of air traffic control 
This program requires the same 
steady nerves under pressure and 
the same instant, almost instinctive, 
analyses of complex emergencies 
which are demanded of a 
professional air traffic controller 
But "ATC " adds the excitement and 
well-defined goals of a game This 
is just a simulation, and all 
passengers left in air traffic limbo 
Dy a panicked player will live to 
fly another day. 

Air Traffic Controller Is 
available for the 16K TRS-80, the 
Apple II, and Apple II plus on 
cassette for $8.95 

TO ORDER 
TOLL-FREE 

1-800-258-179 

(In NH ca« (73-5144) 
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CROSSWORD PUZZLE 




by James Garon 



ACROSS 

1 . Comes in handy more than 
once in ADVENTURELAND 

3. There's one in moorhtab 
sTNUOC EHT 

7. A verb which is also a 
palindrome 

9. Soldier 

10. BASIC function which 
always strives for a positive 
attitude 

13. Adventure # 4 

17. If you find any in GHOST 
TOWN, you could try feeding 
them to the horse 

18. He follows you around the 
PYRAMID OF DOOM 

22. Three quarters of an object 
found in MYSTERY FUN 
HOUSE and perhaps in GHOST 
TOWN as well 

23. When Alice is in the middle 
of an Adventure and must go to 
bed behind the mirror, she types: 
EMAG E-S 

24. Caesar's penultimate Latin 
word 

25. Not the best place to leave 
your computer overnight 

27. Type of sail used in 
Caribbean Cruising (August "80 
SoftSide) 

28. The Atari and S-80 use this 
command to link a machine 
language subroutine to a BASIC 
program (Apple uses "CALL" for 
this purpose) 

29. Slightly larger than a 
subatomic particle 

32. Found in the middle of snow 

33. Two-thirds of a color 

34. One of the creatures that 
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Solution to last months puzzle 



lurk behind the fireplace in 
PYRAMID OF 8 DOWN 

36. Found in one of the rooms 
of 13 ACROSS 

38. Type of package 

39. One of 13 treasures hidden in 
GHOST TOWN 

44. BASIC function which 
indicates how much memory is 
available 

45. Found in the middle of dust 

46. Before (poetic) 

47. The software pirate may need 
a good one someday 

48. There is one near a deep hole 
in ADVENTURELAND 

DOWN 

1. These are the main theme of 
this month's puzzle 

2. Versatile Atari BASIC 
instruction which can do at least 16 
different things 

4. I (Latin) 

5. If you can find some, it could 
be useful after your krad seog pmal 
in ADVENTURELAND 

6. One method of identifying 
unknown substances in GHOST 
TOWN 

8. Adventure # 8: PYRAMID 
OF 

1 1. Bengal Tiger Soup (abbr.) 

12. Found in the middle of isle 
14. Adventure # 5 THE 
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15. Amalgamated Adventurers 
Society (abbr.) 

16. Went into greater detail 

19. Adventure # 7: MYSTERY 
FUN H — 

20. Nickname of fellow who left 
his lamp in the cave in 
ADVENTURELAND 

21. District Attorney (abbr.) 
23. Wine (Italian) 

26. Where the * GOLDEN FISH 
* hang out in 
ADVENTURELAND 

30. Two thirds of a constricting 
snake 

31. Something Scott Adams is 

(abbr.) 

34. Composer of tune ("Bolero") 
which had such a startling effect on 
Bo Derek in the movie 10 

35. tnemdnema sthgir lauqe 
(abbr.) 

37. The horse in GHOST 
TOWN acts like one 

38. Atari command to 
undimension arrays 

40. THEN's companion 

41. A difficult thing to do to 
your ticket into 19 DOWN 

42. Discovering how to do this 
to the telegraphic key in GHOST 
TOWN is part of the challenge 

43. Liquid laundry detergent 
having something in common with 
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HAVE WE 

COT A PM6RJUI 

FOIYII! 



TFR- 



CuNFUl 



WASHINGTON, D.C. 

D.C ARMORY/STARPLEX 

THURSDAY-SUNDAY 

SEPTEMBER 18-21 

11AM TO 9 PM THURS-SAT 
11 AM TO 5 PM SUN 



The new computers are showing off 
Over $50 million worth of equipment in over 100,000 
square feet of space, including the latest software and hard- 
ware for business, government, home and personal use Every- 
thing the NCC show has and more will be on display, and you can 
buy it all right on the spot 

Computers costing $150 to $250,000, mini and micro com- 
puters, data- and word-processing equipment, telecommunica- 
tions, office machines, peripheral equipment and services from 
leading names in the industry like IBM, Xerox. Radio Shack 
and Apple will all be there. 
There'll be conferences on business uses of small to 
medium sized computers, and how to make purchasing 
evaluations. 

There'll be robots, computerized video games, 
computer art and computer music. 

Everyone from kids to people who earn their liv- 
ing with computers will have a great time at the larg- 
est computer show ever organized in each region. 
Admission for adults is $5. The public is 
invited, and no pre-registration is necessary. 
TM¥ Don't miss the computer show that 

B.,ssn 's^s-s-v- mixes business with pleasure. Show 
s^liJ«TTS.3' s up for the show. 



3s sl.;?W 



CHICAGO 

Mccormick place 
thursday-sunday 

OCTOBER 16-19 

11 A.M. TO 9 P.M. THURS.-SAT 
11 A.M. TO 5 RM. SUN. 



Produced by National Computer Stows, 

824 Boylston Street, Ctiestnul Hill, MA 02167, 

Telephone (617) 739-2000. 



fieasesefKJme: 






i-ss===r'yTi.ai 



BOSTON 

HYNES AUDITORIUM 

PRUDENTIAL CENTER 

THURSDAY-SUNDAY 

NOVEMBER 20-23 

11 A.M. TO 9 PM, THURS.-SAT 

11 A.M. TO 5 PM, SUN. 



adult tickets at $5 each). I have enclosed the proper amount of $ 

C Information on the show's conference program. 
n Hotel 'egistration information □ Exhibitor rental information 



Please print Name 



Cty.., 



_ State _ 



_ap- 



SoftSlde NOVEMBER 1980 



33 



KRIEGSPIEL 




by Ron Potkin 

This program is for a 16K S-80 

SOLDIER! PICK UP YOUR 
MUSKET! 

About three years ago I bought 
several boxes of those small one- 
inch high plastic soldiers. They 
represented the French and British 
from the Battle of Waterloo. In all 
there must have been 400-500 
pieces. The next three months were 
spent painting the detail on each 
piece using a magnifying glass, but 
after the first 100 I regret that my 
enthusiasm began to wane. There 
is no doubt that the sight of 
several hundred warriors lined up 
for battle is very appealing but I 
felt there had to be an easier way. 

All this occurred about 12 
months before the "Birth of the 
Byte." I had played several 
commercial wargames and 
although they were very 
interesting, there was a lack of 
realism because I felt that a 
General should be allowed to 
concentrate on the battle and not 
be tied down to rolling dice and 
consulting charts. The TRS-80 has 
changed all that. Think of the 
advantages: 

It determines when conflict 
should occur and the nature of the 
conflict. 

It rolls the dice and resolves all 
combat between opposing sides. 

It is an impartial referee. 

It will not tolerate heavy 
breathing or that gasp of relief 
that moves a complete armor 
division across the Mediterranean. 

Real hidden movement is 
possible. No longer does one need 
to write down on a piece of paper 
the current location of each hidden 
piece. 

It was with these points in mind 
that I wrote "KRIEGSPIEL." 

While designing the game. I had 
to consider: 

The minimum size of hex. 

The shape of each piece. 

The necessity to be able to 
distinguish pieces on each side. 
Each must be oriented left or 
right so squares and oblongs are 
out. 

Keyboard characters are 
34 




unrealistic. When playing, one 
should be totally involved and feel 
as though the battle is really 
happening: 1 am afraid the letter 
"A" for army does not turn me 
on. 

I finally determined that four 
bytes were required to build up a 
neat shape and meet all my 
requirements. After allowing for a 
line of messages and spaces 
between the pieces. 1 had a board 
of about 120 hex. In 
"KREIGSPIELII,"lhave 
adopted a different approach so 
that it is possible to have 500 hex. 

I think you will enjoy the game. 
My son Leigh, and I have played it 
many times and have developed 
our own personal strategies. 
Invariably, one scenario becomes 
particularly interesting and we play 
it over and over 

"KRIEGSPIEL 11" is a further 
development of this game with 
more pieces, minefields, weather, 
recruiting, a larger board and 
other features, but the same basic 
strategies apply. 

I am not going to give any 
advice on tactics other than to urge 
you to study the table of odds very 
carefully before you attack. 

Before getting involved in the 
detailed programming, you should 
understand the overall operation of 
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the program. There are four arrays 
which control all movement and 
attack these are: 

1 . Video screen - Run the 
program and put the hex board on 
the screen. Each hex is numbered 
according to its first "print 0" 
position. The top left-hand hex is 
number 4. The next is number 12 
and so on up to 60 in steps of 8. 
The second line runs from 64 to 
120. Note that alternate rows are 
offset by four so that the hexes fit 
together. The same format 
continues down to hex number 956 
leaving the bottom line for 
messages. Let's look at a section 
of the screen using hex number 400 
as an example (Figure 1). Now 
deduct 400 from every number to 
arrive at the offsets (Figure 2). If 
we know the direction. These 
enable us to move a piece from 
one hex to another. We could 
calculate them but it is faster to 
use "on-direction-goto" (Line 
21500). As an alternative a table of 
values could be used. 

2. Piece table "PC" - This is a 
32 by 6 array and contains details 
of the 16 pieces on each side. The 
first column is the current hex 
number position on the screen. 
The second contains the type of 
piece - tank, infantry, engineer or 
capital. The other four columns 



contain combat pointers which will 
be described later. When a piece is 
eliminated, column 1 is set to zero. 

3. The board "BO" - This is a 
16 by 16 array, including the zero 
index and is an internal 
representation of the map. Each 
indexed position is equal to one 
hex on the screen. Each vacant 
position on the screen is set to zero 
on the board. An occupied 
position contains the index of that 
piece in the piece table. Positions 
occupied by mountains contain -1, 
-2, or -3 according to the type of 
mountain. 

4. Characters "PC$" - This is a 
7 by 4 character string holding the 
shapes to be printed on the screen. 
The correct character is obtained 
by means of its index in the second 
column of the piece table. 

It will be apparent from figure 3 
that, using the information in each 
of the arrays, we can easily move 
from one table to another. There is 
one missing link: This is the 
conversion from the hex number to 
the board coordinates which is 
carried out in line 2100: 

Yl = INT(P/64) 

Xl=(P-64.Yl)/4 
(Where "P" is the hex number) 

Much of the program is 
concerned with the manipulation 
of these arrays. It is in motion by 
putting the initial hex position of 
each piece in each array and then 
running through the piece table 
prompting for a decision on each 
piece in turn. Assuming the piece 
is on hex 400 (Figure 1) and you 
type direction 6, the program 
calculates the board coordinates, 
checks that hex 352 is vacant and, 
if it is, moves the piece. It now 
checks the six hexes surrounding 
the new hex to see whether it is 
next to an opponent. One side has 
indices 1 to 16; the other 17 to 32: 
So if piece 12 (less than 17) is next 
to piece 24 (greater than 16), an 
attack takes place and any further 
movement ceases. 
The following is an outline of the 
movement sequence: 

1 . Line 200 controls the whole 
game. At the end of a player's 
turn, the program returns here and 
changes sides. 

2. Turns are determined by "5" 
in line 10(X) which sets the variable 
I, to either I or 17 indicating the 
index of the first piece to be 
moved. 

3. Gets the hex number FL, the 



number of moves "MV," and the 
character "FL$." (lines 1010, 
1020) 

4. Prompt for a decision by 
flickering "FL$" and "MV." (line 
1030) 

5. If the input is a number, 
check if valid and either move the 
piece or continue prompting, (lines 
1050 -1210) 

6. Checks during movement 
(line 1065) for the winning 
condition. 

7. Line 1075 checks "river 
crossing." If this is true, an extra 
movement factor is deducted. 

8. Line 1182 checks one hex in 
every direction using "Search," 
looking for an opponent. 

9. Intermingled in the coding is 
the "Hold routine. Follow this 
through watching the variables 
"HD," "Kl," and "HL" in lines 
1000, 1010, 1017/8, 1047/8, and 
1218. 

10. The "C," "S," and "F" 
commands are easier to follow, but 
note that "C" jumps immediately 
to Une 1300, whereas "F" carries 
out a full check of pieces that have 
not been prompted to check for 
posible attacks. Since this involves 
checking six hexes for every piece, 
it is a slow process and therefore, 
if it can be seen that no pieces are 
adjacent, it is better to use "C." 

Let us take stock of what we 
have when we finally reach line 
1300 - the start of the attack 
sequence: 

1 . The board, video, and piece 
table have been updated in respect 
to all movement. 

2. Mountains will have been 
adjusted on the board and video 
when they have been eaten away 
by the engineer. 

3. Columns 3, 4, 5, and 6 of the 
piece table contain information 
regarding attacks. Note that if 
column 4 is set to one that attack 
will be automatic and requires no 
prompting. If it is greater than 1, 
then a decision is required by the 
player. 

COMBAT SEQUENCE 
Lines 1305 to 1500 are a 
prompting routine and settle all 
attacks. Note that the use of the 
flag "22" -This is set to one if an 
attack is found. If it is zero at line 
1550, it means there are no attacks 
and the combat sequence is 
finished. 

Lines 16(X) to 1745 are more 
complex. They are concerned with 
determining which pieces are 
involved in each individual 
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combat, whether the defender has 
support; whether the attack is 
across the river; and finally 
selecting a random result from the 
attack table. 

A defender table "DR," is set 
up. This holds details of each 
defender as it is found in the piece 
table (line 1620). The attacker is 
put in the attacker's table "Q" 
(lines 1680 -1690). We now go 
through the rest of the piece table 
searching for any other pieces 
attacking the same defender. 
These are added to the "Q" table. 
As each is added, the attack factor 
"AT" is increased (and increased 
again if the attacker is a tank), the 
river crossing flag is "and" ED 
with "DR(3)" and column 3 of the 
piece table negated so that that 
piece cannot be involved in 
another attack. 

Lines 1700-1710 calculate the 
defender's factors and go to the 
subroutine at 4000/4200 to check 
for support. 

Lines 1720 - 1740 calculate the 
attack ratio and find the 
appropriate column in the attack 
table from which it selects a 
random result. If you are like me, 
you probably find typing the rules 
is drudgery, so if you want to see 
the attack table, look at lines 
20162 - 20167. Now read through 
lines 40192 - 40415 which tell you 
the outcome for each value in the 
table. 

Note the use of the flag "RV," 
which indicates whether the attack 
is across the river. The rules state 
that the defense factor is doubled 
unless the defender is also being 
attacked on the same side, of the 
river. Put simply, this means that 
if the river flags of all attackers 
(column 6 of the piece table) are 
set, then the attack is across the 
river. If any flag is not set then all 
others are nullified and the defense 
is not doubled. This result is very 
easily obtained by using the 
"And" instruction and what at 
first appears extremely complex is 
resolved in a single instruction! 




continued on next page 
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continued from previous page 

Lines 1750 to 2500 carry out the 
results of the combat result "R" 
as follows: 

1. Exchange: 

The defender is automatically 
eliminated (line 24000), but a test 
must be made to check how many 
factors the attacker had (line 
1706/7). If they were less or equal 
to the defender's, then elimination 
is automatic. Otherwise the 
attacker is prompted for the pieces 
to be eliminated. 

2. Attacker Eliminated: 
This is automatic and all 

attackers are eliminated using the 
routine at line 25000. 

3. Defender Eliminated: 
This is automatic and the 

defender is eliminated using the 
routine at line 24000. 

4. Defender Retreats: 

The player is prompted for the 
direction of retreat and a check is 
made for legality. If there is no 
retreat then an "E" is typed and 
the piece is eliminated. The 
variable "RD" is a count of the 
number of hexes moved. 
Remember that the defender is 
now allowed to move next to an 
opponent. 

5. Attacker Retreats: 

This is essentially the same as 
"Defender Retreats" except, of 
course, that all attackers must 
retreat. 

The program now returns to line 
1600 to look for further combat. 
Exit back to the main routine via 
the return in line 1610. 



'EX" 



"F2" 
<<P3" 

"FL" 

"FL$" 

"HA" 



"HB" 

"HC" 
"HD" 
"HL" 
"HX$" 

"J" 

"Kl" 
"KP" 

"LN" 
"MS" 

"MT" 
"MV" 

"PC" 
"PCS" 
"Q" 
"Rl" 

"Rl$" 
"R2$" 
"R3$" 
"R3" 

"R4$" 
"RD" 
"RN" 



used in exchange to 

ensure that enough 

attackers are removed. 

attack flag. 

flag used when looking 

for support. 

current hex number. 

current piece character. 

pointer to current 

attacker when looking 

for defenders in combat 

sequence. 

maintains count of 

attackers in table "Q." 

temporary count. 

"hold" variable. 

"hold" variable. 

hex board request. 

index to piece being 

moved. 

temporary variable. 

temporary variable. 

"hold" variable. 

used to save pointer. 

used to create river. 

used for prompt 

messages. 

number of mountains. 

moves left. 

new hex number. 

piece table. 

piece characters. 

table of attackers. 

used in random number 

generator. 

hex board. 

hex board. 

hex board. 

used in random number 

generator. 

hex board. 

retreat count. 

random number. 



'RT" 
'RV" 

•SD" 
'SE" 



attack result. 

river crossing flag. 

whose turn is it? 

random number seed. 

holds "SD." This is 

necessary since the 

number of mountains 

requested could upset the 

shape of the river. The 

river can't be placed first 

because it would be 

destroyed by the 

mountains. 

used to create river. 

table of attack outcomes. 

coordinates to river 

graphics to check for 

river. 

hex number to board 

coordinates. 

save "XI." 

see "X." 

see "Yl." 

see "X2." 

hex offset. 

attack flag. 
I hope you will enjoy this 
program and, maybe, with the help 
of this explanation, find ways to 
improve it. 1 adopted most of the 
ideas in this game in "Kriegspiel 
II," but the programming methods 
changed in several instances. For 
example, 1 found that many 
routines (particularly "search" and 
"river crossing") could be 
simplified by using tables of data. 
Probably the best change 1 made 
however was to surround the 
board with a boarder of 99s. This 
greatly simplified checking for 
movement off the edge of the 
board. 



'SR" 
'TB" 

'X" 



"XI" 

"X2" 

"Yl" 
"Y2" 
"Z" 
"ZZ" 



The following is a list of the 
variables used in the program: 



"A" 


direction indicator. 


"A$" 


input from keyboard. 


"AD" 


defender support factors. 


"AF" 


attack ratio 


"AJ" 


piece in adjacent hex 


"AT" 


attack factors. 


"AX" 


"AT" plus 50%. 


"B" 


temporary variable. 


"B$" 


temporary keyboard 




input 


"Bl" 


piece index in adjacent 




hex 


"B2" 


used during initialization. 


"BD" 


internal board. 


"CL" 


used in calculating attack 




result. 


"CT" 


temporary variable. 


"DF" 


defender's factors 




(including support). 


"DR" 


defender pointers. 


"DT" 


defender's factors. 
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I nS'PffTNTPH3i " ""»»"'""""»""""""'" ";! 

PRINTK07,"i KRIEGSPIEL i" 

!PiaNTe271,"i A W«Gtif. FOR TWO PLAYERS i" 
•.PraKTraB,"! BY RON POTKIN i" 

3 aEAR28e:DEFINTA-Q,T-Z:RAND0M 

5 DWC(32,6),TB(6,11),B0(15,15) 

6 GOSUe20D00:CLS 

IB INPUT"DO YOU HANT THE RULES";B$:IFLEFT$(B$,1)="Y"THENGOSUB100 

DO 

13 INPtJT"DO YOU MWT A HEX BOARD";HmffHX»="Y"THDIW«="N" 

II PRINT"SET YOUR SCENARIO" :INPUT"H0H MANY MOUNTAINS (OT025)";MT 
{IFHXi="N"THE>aNPUT"DG YOU (WNT A RIVER";RV» 

16 F(MT>ll)0R(RV»O"N")THENINPUT"ENTER THE SCSttRIO NU«B£R";SO:S 
D=SDi.52M16;SE=SD 

100 cls:gosub2M5o:s=i7:ifm)(2)=is=i 
200 gosubiooo:s=18-s:goto20o 

1000 A$=IM<EY$:A»="":PRINTe96fl,"l.. MOVE SEQUENCE"; J I=S:H)=0!H.= 



1005 FORK1=1T032:PC(K1,3)=0;PC(K1,1)=OJNEXTK1 

1010 MV=3-2x(I<(S+7)):Kl=AeS(F'C(I,l)):ffF'C(I,l)=0THEN1200 

1017 IFH=0THEN1020 

1018 FPCCI, 1 ^OTftNlZOOELSEFCd,! )=-PC(I,l ) :HD=HD-1 

1C20 IFPC(I,3)<:>0 THEN 1200ELS£FL=PC(I,1):FL»=F«(F'C(I,2)) 
1022 FA»="F" THEN 11B2 
1025 MS»=STR»(MV) 

1028 F'RINTe980,"",*;in=STf£NF'RINT"ENGINEER";ELS£IFI<(S+7)THENPRI 
NT"TAf»(";ELSEPRINT"INFANTRY"; 

1029 PRINTSTR«(I);:R1=I-10xM(I/10):iF(I>10)AND(I<21)TtCNFi;iNT" 
TH"JELSEIFR1=lTHENFraNT"ST";ELSEIFRt=2THENF'RINT"ND";ELSEIFRt=3TH 

EwraNT'TO" ;elseprint"th" ; 

1030 GOSt£ 23000 

1010 FA*="S" THEN 1182 

1015 IFA»="F" THENFORK=STOS+11:F'C(K,1)=A£S(PC(K,1))5IOTK:HL=0:H 

D=0:GOTO 1182 

1017FA»="H"THQi[FKlOfC(I,l)TH£N1030ELSEIF(F'C(I,l)>0)TtePC(I, 

1 )=-Ft;(1, 1 ) !HD=H0+1 :GOT01200 

1018 FA»="C" THEN FORK=STOS+11:PC(K,1)=^(PC(K,1)):NEXTK!HL=0: 

H[>=0:PRINTe980,STRING$(12," ");:GOTO1300 

1050 A=VAL(A$):F(Aa)0R(A;7) THEN 1030 

1060 GOSUB 21500 

1065 IF((S=17)AND(F-200))OR((S=1)AND(P=820))T(€N30000 

1067 X2=X1!Y2=Y1:G0SUE 31075:Yl=Y2!Xl=X2:FAt>O-2TICNlfl70ELSE 
IFRVTI€NF1?INTeiOOO, "MOUNTAIN ACROSS RIVER";. •FORK=1T01000:NEXTK:P 
RINT91000,STRING$(22," ");:G0T0 1030 

1068 «V=l!BO(Yl,Xl>=H)(Yl,Xl)+i:FeO(Yl,Xl)OOT]CNPRINTeP,MT»(-6 
D(Y1 ,X1 ) ) ; :GOTO1182ELSEGOSUe21010:iFY>lTHENRESET(X+2,Y-2) :RESET( 
X+5,Y-2) 

1069 PFINTeF'," ";:RESET(X+2,Y+2):RESET(X+5,Y+2):G0T0 1182 

1070 FAJOO THEN 1030 

1075 IFMV=lANDfiVTHEN1030ELSE«V=MV+(RV=l) 

1170 PRINTeFL," ";:PRINTeP,FL$; 

1175 GOSUe 21000 

1180 F'C(I,1)=P!BO(Y1,X1)=I!P=FL:GOSUB21000:EiO(Y1,X1)=<1:FL=FL+Z 

1182 FORA=1T06!GOSUE21500!GOSUB22000;NEXTA 

118? IFA»="S"ORA$="F"THEN1200 

1190 «V=M'vI-1!FMVTHEN1020 

1200 PRINTe980,STRING$(15," ");;i=I+liffI<(S+15) THEN 1010 

1210 Ftt)>0THENHL=i;i=S;GOTO1010 

1300 F'RMe960, "2. COMBAT SEQUENCE" ;STRING»(15," "); 

1305 ZZ=0 

1310 F0RI=ST0S+11 

1315 F(PC(I,3)=0)TtCN15flO 

1318 ZZ=1 

1320 F(PC(I,1)=1)THEN1500ELSEFL=PC(I,1):FL*=PC$(PC(I,2)) 

1325 MS$="AT" 

1330 GOSUB23000 

1310 A=VAL(A»):FA=((Va)OR(A>7)THEN1330 



1350 GOSUB21500 
1370 GOSUS22000 
1380 IFF2=0GOT0133fl 

1500 itxn 

1550 FZZ=ORETURN 

1600 AT=o:HA=s:He=o 

1610 FF'C(HA,3)<=0THENHA=fW+i:iFFtt>(S+11)TH£J«J£TURNELSEGOTO1610 
1620 PR(l)=PC(t«,3):DR(2)=PC(HA,5)!DR(3)=F€(t*^,6) 
1630 GOSUE:1680 

1610 ha=ha+i;fha;>(s+ii)theni700 
1650 ff'c(ha,3)<>dr(1)th£n1610 

1660 GOSUB1680 

1670 G0T016ie 

1680 HE:=He+lJ0(HE:,l)=PC(HA,l):Q(H6,2)=HA: 

AT=AT+1:!)R(3)=0R(3)AM)PC(HA,6):PC(HA,3)=-PC(HA,3) 

1685 IF(PC(HA,2)=2)0R(F1:(HA,2)=5)THENAT=AT+1 

1690 RETURN 

1700 DT=1 

1710 IF(PC(DR(2),2)=2)0R(PC(DR(2),2)=5) THEN DT=0T+1 

1712 GOSUB1000 

1715 IFDR'(3)<>0 THEN DT=DT+DT 

1720 AX=INT(AT+.5xAT):iFAX;;(DT+AD) THEN AF=INT(AX/(DT+AD))JDF=i: 

a=AF+5:G0T0 1710 

1730 DF=INT((DT+AD)/AX):AF=1:CL=7-DF 

1710 IFAF>6 THEN RT=1ELSEFDF>6 THEN RT=-1ELSERT=TB(RND(6),CL) 

1715 PRINTe980,"ATTAa(EF;";AX;"DEFENDER";DT+AO; 

175C FRTOO THEN 1900 

1755 PRINT" EXCHANGE"; 

1770 GOSUE: 21000 

1780 HA=1 

1785 IFHB=1 TftN GOSUB 250flO!GOTO 1900 

1786 K=0;FORHA=lTOH£::K4(+i:FtPC(Q(HA,2),2)=2)OR(FC(Q(f«,2),2)=5, 
)THENf(=K+l 

1 787 NEXTHA ! IFK<=DTTHENF0RHA=1 TOHE: I GOSLI£!250 ! NEXTWl : GOT0190 
1790 HA=1:EX=DT!CT=HE; 

1795 IFQ(HA,1)=I)THEN1880 

1800 MS$="EL"!FL=fC(Q(HA,2),l):FL»=F'C$(F'C(Q(HA,2),2)) 

1810 GOSUB 23000 

1820 IFA»="E" TFCN 1850 

1830 IFA*="N" THEN 1880 

1810 GOTO 1810 

1850 GOSUB 25000 

1860 Q(HA,1)=0 

1865 CT=CT-i;iFCT=0 THEN 1900 

1870 IFEX<=0 THEN 1900 

1880 HA=HA+i;FHA<(fe+l) THEN 1795 

1890 IFEX>0 THEN 1790 

1900 ' 

1910 IFABS(RT)01 THEN 2000 

1920 IFRT=-1 THEN PRINT"ATTACf£R ELIMII«TED";ELSEG0T0 1950 

1930 F0FJW=1T0HB: GOSUB 25000 !(€XT 

1910 GOTO 2000 

1950 PRINT "DEFENDER ELIMINATED"; 

1960 GOSUB 21000 

2000 IFRT=Z THEN PRINT "DEFENDER RETREATS 2";ELSEG0T0 2100 

2005 R0=1 

2010 ms$="RT":fl=pc(dr(2),i):fl»=F'C$(fi:(DR(2),2)) 

2020 GOSUB 23000 

2030 IFA<="E" THEN GOSUB 21000. 'GOTO 2100 

2035 A=VAL(A$)!F(A<1)0R(A>7) THEN 2020 

2010 GOSUB 21500;iFAJC>0 TfCN 2020 

2015 KP=fL:FL=P:A=l 

2050 GOSUB 21500 :FAJ<;0 THEN 2070 

2055 IP4(F' THEN 2070 

2060 IF((S=17)ANO(AJ>3)AND(AJ<7))OR((S=1)AND(AJ(1)AND(AJ>0))THEN 

a=f(P:GOTO2020 

2070 A=A+i:iFA<7 THEN 2050 

2075 P=FL;FL=KP:PRINTeFL," ";:pRINTeP,FL«;:DR(l)=P:PC(DR(2),l 

)=prEasuB 2iooo:bo(yi,xi)=or(2);p=fl:gosub 2iooo:bo(yi,xi)=o 

continued on next page 

T7 
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continued from previous page 

Zm 1®=R0+i;iFRD=2 Tt€N 2010 

2100 IFPT=-2 THEN PRINT"AnACKER RETREATS 2";ELSEG0T0 2500 

2110 F0RHA=1T0HB 

2115 RD=1 

2120 MS»="RT";FL=PC(Q(m,2),l):FL»=fC»(PC(Q(HA,2),2)) 

2130 GOSUB 23000 

2H0 IFAI="E" THEN GOSUB 2500fl:GOTO 2195 

2H5 A=(.'AL(A*):iF(A<l)0R(A>7) THEN 2130 

2150 GOSUB 21500 

2155 IFAJOO Tf£N 2130 

2160 Kf=FL:FL=F':A=l 

21(45 GOSUB 21500 :iFAJ-(0 THEN 2185 

2170 IFP=fa:' THEN 2185 

2175 IF(S=17)AND((AJ=2)OR(AJ=3)OR(AJ=l))THENFL=f(F':G0TO213fl 

2180 IF(S=l)AND((AJ=^)OR'(AJ=5)OR(AJ=6))T(£ffL=KF':GOT02130 

2185 A=A+i:iFA<7THEN2165 

zm P=FL:FL=KP;F'ftINTeFL," ";jPRINTeP,FL$}:Q(m,l)=f;PC(Q(HA, 

2),1)=P:G0SUB 21000:EC(Yl,Xl)=Q(m,2);p=FL:GOSUe 21flOO!BO(Yl,Xl) 

=0 

2192 RD=RD+i:iFRD=2 THEN 2120 

2195 NEXT HA 

2500 fork=lto500!nextk:f'rinte980,string*(12," ");!goto 1600 
1000 'check for defender suf'port 
1010 ad=o:fore=itohb:fl=q(b,i) 

1020 FORA=lTO6*GOSUE:21500 

1010 IF(AJ<=0)OR(AJ=7)OR((S=17)AND(AJ>3))OR(<S=1)AND(AJ<1))THEN1 

200 

1055 IFPC(E1,3)=1THEN1200 

1060 F3=0;FOF;I=STOS+11 

1070 F3=0;FORI=STOS+11:F3=F3-(A£S(F'C(I,3))=P) 

1075 NEXTI 

1080 IFF3=0T^£NAD=ADVl;F■C(Bl,3)=l!ff(AJ=2)OR(Ad=5)THENA^>=(«)+l 

1200 (CXTA,B!FfTU<N 

Irdtialization 

Lines 20000-20600.* Set iv the pieces and place the river and 
noi.ritains on the fiap. Note the use of a randon nufter 
generaton which does not depend ori RNO (line 32000), so 
that 3 giveri scenario can be repeated. 

20000 DATA!, 516 

20060 DATA2, 576, 156, 276, 156, 208, 328 

20G8C DATA3,216, 336,396,268,110, 80,260,320 

20100 DATA7,200 

20110 DATA1,501 

20120 DATA5,111,561,711,861,692,812 

20110 DATA6,801,62i;681,752,700,760,MO,910 

20150 DATA7,820 

20160 DATA^l 

20162 DATA-1, -1,-2,-2, 2, 1, 1,1,1,1,1 

20163 DATA-1, -1,-1,-2, 0, 0, 0,0,0,2,2 

20161 DATA-2,-2,-2,-2,-2, 2, 2, 2,1,1,1 

20165 DATA-1, -2,-2,-2,-2,-2,-2, 2,2,2,1 

20166 DATA-1,-1,-1,-1,-1,-1, 0, 0,2,1,1 

20167 DATA-1,-1,-1,-1,-1,-1,-1, 1,1,1,1 
20180 1=1 

20200 REAOX;iF(X<0) THEN 20262 

20220 F(X<8) THEN Y=X!GOTO 20200 

20210 F'C(I,1)=X!F'C(I,2)=Y 

Z0260 M+15G0T0 20200 

20262 FORI=1T032:P=F'C(I,1);GOSUB21000:EO(Y1,X1)=I;NEXTI 

20265 F0RI=1T06!F0RJ=1T011:READTB(I,J)JNEXT j,i 

20280 PC*(2)=" "+CHR$(183)+CHR$(187)+CHR$(132) 

20290 PC$(1)=" "+CHR»(157)+CHR*(110)+CHR*(132); 

PC*(1)=CHR$(136)+Ctffi*(110)+CW<»(171) 
20300 PC*(5)=CHR$(136)+CHR»(183)+CHRt(183) 
20320 Ft:«(3)=CHR$(168)+CHR*(173)+CHR$(91): 

PC»(6)=CHR»(93)+CHR$(168)+CHR$(173) 
20310 PC$(7)=" "+CHR$(191)+CHR»(191) 
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20350 A$^CHR«(166),*B$=CHRt(153); 

MT$(1)=A$+CHR*(162)+CHR'»(115)+B»; 

MT5(2)=A$+A$+E<+E!»: 

MT$(3)=A»+CHR<(171)+CHR$(157)+B$ 
20355 RETURN 

20150 FHX5="Y"T«NB1»=" ":B2*=CHR$(153)+CHR$(110)+CHR$(110)+ 
CHF:»(166);R1$=B1$+£:2$:R2$=£:2$+E1»:R1$="";R3*='."':F0RI=1T08;R3$=R3 

*+ri»:ri$=ri$+r2$:nexti 

20500 IFHX$="Y"THENFORI=OT0832STEP128;pRINTei,R1»; ;F-RINTei+61,R3 

$;;ne.xt;fi;:int(?896,ri»; 

20520 F0RI=lT032:PRINTePC{I,l),F'C$(F'C(I,2)))!N£XT 

20525 IFMT<1THEN20580ELSEFOFJ(=1TOMT 

20530 SD=SD+.528116:R3=15:GOSUt;32000!X=RN;R3=11!GOSUB32000:Y=fiN 

20532 IF(XANDl)=(YANDl)ThENX=X+i:iFX>15THENX=X-2 

20535 P=6l!«Y+1iX 

20537 FL=F';A=1 

20538 GOSUE21500.'IFAJ=OTH£N20510ELSEA=A+1;IFA:>6TFCN20530ELSE2053 
B 

20510 GOSUE:21000:R3=3:GOSUE;32000!BO(Yl,Xl)=-RN:F'RINTep,MT$(-BO(Y 

i,xi)>; 

20550 IFY>1 THEN SET(X+2,Y-2)!SET(X+5,Y-2) 
20560 SET{X+2,Y+2):SET(X+5,Y+2);GOSUe33000 
20570 NEXTK 

20580 ifrv*="N"then20600elsesd=se:sr'=6i::set(sr,o);sr=sr+i;ln=i 

20583 R3=10:GOSUE:32000;B1=RN+2:GOSUB32000:B2=RN+2 

20585 FORK=OT011 

20586 IFSR.>110THENR'y=2ELSEIFSR<20THENRV=iaSER3=2:GOSUB32000;RV= 
RN 

2O590 F(SRA^l)=lTHE,NGOSUE26000a^GOSUB26500 

20595 NEXT K 

20600 RETURN 

21000 Yl=INT(P/61):Xl=(P-61xYi;/1 

21010 v=i+yi«3;x=xix8:return 

Search 

Lines 21500-21630! Given the direction A, and the hex nw*er 
FL, the following are calculated; 
P - the new hex nLinber in the given direction 
A J - contains! 

-1 if the nove is illegal 
if the hex is vacarit 

-2 if the piece being Moved is an erigineer arid the 
riew hex contairrs a Moijritain, or 
Bl - the index of the occuparit. 

21500 ' 

21510 ONAGOTO21520,21530, 21510,21550, 21560,21570,21520 
21520 Z=-60:GOTO 21575 
21530 Z=68:G0T0 21575 
21510 Z=128;GOTO 21575 
21550 Z=60!GOTO 21575 
21560 Z=-68!G0T0 21575 
21570 Z=-128:GOTO 21575 
21575 P=FL+Z 

21580 Y1=INT(P/61):X1=(P-61J:Y1)/1 
21590 AJ=0 

21600 F((X1AND1)=(Y1AND1))OR'(Y1>11)OR(Y1<0) THEN AJ=-1!RETURN 
21610 B1=BD(Y1,X1) 

21615 IFBKO THENIFIOS THEN AJ=-i:R£Tli<NELSEAJ=-2;R£TURN 
21620 IFEa OOTHENAJ=PC(B1 ,2) 
21630 RETURN 
Set i.ip attack 

Lir«s 22000-22010; Given the hex nuMber FL, the piece index I, 
the direction A, and the piece index of the occLT>ant 61, 
this routine checks for attack.. If there is ari attack, 
it sets up the followirrgr 

1) Coluwi 3 of the piece table is set to the hex nuf*er of 
the opponent; 

2) ColuMH 1 is irrcreased by one) 

3) ColuMH 5 IS set to 61, the type of defender; 

'" "Ri^w crossing" is check.ed and column 6 will contain RV 
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22000 GOSUE31000:iFF2=0R£TURNELSE;PC(I,3)=P:PC(I,1)=fC(I,1)+i:PC 

(I,5)=ei:F2=i:GOSUE:31075;PC(I,6)=RV 

22005 PRINT01OOO,"ATTAa(";;iFRV=lTH£N FKWT" ACROSS RMR"; 

22007 FORK=lTO1000:N£XT:PRINTe992,STRINGt(30," ")} 

22010 RETURN 

23000 'FLICKER FOR' MUT 

23010 A*=INKEY»:iFAK>"" THEN R£TURNELSEPRINTFL,MS$;" ";;F0RJ= 

ito5o;next !print0fl,fl$;:goto 23010 

23999 'DEF. ELIM 

21000 FORHA=lTO10!PRINTH)R(l),HT$(W<D(3));:NEXT;PRINTeOR(l)," 

";:pc(dr(2),i)=o;pc(dr(2),3)=o;p=dr(1):gosue 2iooo:eo(Yi,xi)=o: 

RETURN 

25000 FORHC=lTO1O:F1<INT0Q(HA,l)tMTt(RND(3));jNEXT :PRINTM(HA,1) 

," "J!PC(Q(HA,2),l)=0;PC(Q(HA,2),3)=0;P=Q(ttt,l);GOSUB 21000:B 

D(Y1,X1)=0 

25010 EX=EX-i;AJ=ft(Q(HA,2),2);F(AJ=2)0R(AJ=5) THEN EX=£X-1 

25020 RTTURW 

26000 IFRy=2THENGOSUB26900 !GOTO26100 

26010 FORJ=OT05STEP2:SET(SR+J,LN):NEXT;SR=SR+5:GOSUB26800 

26100 LN=LN+3: RETURN 

2650 IFRy=l THENGOSUE:2680 ! GOTO26580 

26510 FORJ=OT05STEP2:SET(SR-J,LN)!NEXT:SR=SR-5:GOSUB26900 

26580 LN=LN+3:RETURN 

26800 F(E!1=K)GR(B2=K)THEN26810ELSESET(SR+1,LN+1):SET(SR+2,LN+2) 

26810 sr=sr+3:return 

26900 if(bl=k)0r(b2=k) then 26910elseset(sr-1,ln+1):set(sr-2,ln+ 

2) 

26910 SR'=SR-3:RETURN 

30000 GOSUE33000:iFS=17THENF'RINTe960, "SOUTHEAST WINS";ELSEPRINTe 

960, "NORTHWEST WINS" J 

30010 FiaNTep/'wiN "; 

30020 E!$=INKEY* :iFB«=""Tt£N30020£LS£END 

31071 'RIVER CHK 
River crossing 

lines 31JI75-311'20: Given the hex n'jnber FL and the direction 
A, this routine reti-irns a flag RV which, if set, iridi- 
cates that Movirig in that directiori involves crossirig 
the river. This is Lised both for Movenent and for cal- 
culatirig the river defense. 

31075 IFHX$="Y"THENRy=0:RETURNELSB(F-P:P=FL:GOSU£;21000;F-KP:RV=0 

31080 ON A GOTO 31085,31090,31095,31100,31105,31110,310^ 

31085 IF(X>120)OR(Y<2)TH£NF;ETUW£LSEIFF'OINT(X+7,Y-2) THEN RV=1 

31086 RETURN 

31090 IF(X>120)THD«ETURfELSEIFF'OINT(X+7,r+2) THEN RV=1 

31091 RETURN 

31095 IF(X:>121)THE»;ETURNELSEIFP0INT(X+2,Y+3)0RP0INT(X+3,Y+3) TH 
EN R<;=1 

31096 RETUFW 

31100 IF(X<1)THENRETURNELSEIFP0INT(X-1,Y+1) THEN RV=1 

31101 RETURN 

31105 F(X<l)0R(Y<l)THENRETURfELSEIFF13INT(X-l,Y-l) THEN RV=1 

31106 RETURN 

31110 F(X:>121)0fi(Y<3)THENRETl«N£LSEIFP0INT(X+2,Y-3)0RF'0INT(X+3, 
Y-3) THEN RV=1 

31111 GOTO 31120 
31120 RETURN 

31999 'RANDOM NO. 

32000 Rl=SDx997.*SD=Rl-INT(Rl ) ;RN=INT(SD)«R3)+1 ;RETUftN 
33000 PRINTe960,STRING*(63," ");:RETURN 

Attack 

Line 31000; Given the variables S, the attacker's nunber, and 
the value of AJ, the occi.ipant of the adjacent hex, this 
routine returns a flag F2 which, if set, iridicates ari 
attack. 

31000 F2=fl:iF(AJ=7)0R(AJ-a)THENRETURN 

elsefmot( ( (s=l )and(aj>3) )0r( (s=17)and(aj-<1) ) )then 
returnelsef2=i;return 



35000 LPRINT" "!FORX=15360T016359STEP61;A$="" 

3501!! fory=ot063:a$=at+ch<$(f'eek(x+y) ) 
35020 nexty;lprinta$:nextx;a$="":return 

10000 C1S;PRINT(?81,"TRS-S0 NARGArtE 1.1" 

;print02oo,"this ga^ simulates a WAR' between two countr 

lESr'IFWNTeiOO, "NORTHWEST ivERSUS SOUTHWEST" 

10002 PRM!?586,P«(2);:PRINTe6l5,PC$(5);:F'RINTe687,PCt(6);!PRIN 

TP7i2,F'C«(3);;pRiNTe75e,PC*(i);;pRiNTe720,F'C$(i);: 

10010 GOSUE51000 

10015 PRINTglS, "OPERATING INSTRUCTIONS;" 

1III2( PfiM 

10(25 PRINT:FiaNT"DO YOU WANT A HEX BOARD? 

n IS ADVISABLE TO PLAY ON A HEX BO^ UNTIL YOU ARE 

ACCUSTOMED TO THE MOVEMENT OF THE PIECES. 
10031 PRINT"HGW m(1 MOUNTAINS? 

MOUNTAINS CREATE A MORE INTERESTING Gfi£. THEY APPEAR AT 

RANDOM ON THE BOARD. 
18010 PRIMT"DO YOU WANT A RIVER"? 

THIS OPnON IS NOT AVAILABLE ON A HEX BOARD. 
10015 PRINT-ENTER THE SCENARIO NUMBER' 

THIS EH/eHS THE SAME SCENARIO TO BE REF'LAYED.";GOSUB51000 
10056 PRDfTEACH PLAYER HAS 16 PIECES CONSISTING OF; 

10060 PRimT«(15);"N0RTttCST";TAB(27);"S0UTHWEST";TA6(38)r'NUMB 
EirjT«(16)rW^UE";TA6(51);"M0VBCNT" 

10061 PRINT 

10065 PRINT"CAPnAL";TAB(2fl),*PC$(7);TA6(30)|PC»(7)|T(«(10);i;TAB 

(ie);o;TAB(58);D 

10066 PRINT 

10070 PRiNT"ENGINEER";TAB(20);PC»(l);TAB(30)}F'C$(1);T(«(10);iJTA 
B(18)}1;T(«(58);5 

10071 PRM 

10075 PRINT"TANK",*TA6(20);PC$(2);TAB(30);PC$(5);TA6(1fl);6;TA6(18 
)J2!TAB(5B)}5 

10076 PRINT 

10080 PRDfr"INFANTRY",*TA6(20);PC$(3)|TAB(30);PC$(6);T^(10);8;TA 
B(18)}1,*TAB(58);3 

10081 PRINT 

10085 PRINr"OBJECTIVE: 

THE FIRST PLAYER TO ENTER HIS OPPM£NT'S 
CAPHAL IS Tt€ HlfWER. 

10091 gosubsiooo 
10100 print"movement: 

WE FIRST PLAYER IS RANDWtY SELECTED.F YOU WISH TtC OTHER 
PLAYER TO MOVE FIRST PRESS = C =. EACH PFCE HILL, IN TURN, FLIC 
KER ON THE SCREEN SHMONG THE MAXMJH NUMBER OF MOVES AVAILABLE. 
10105 PRINT"TO MOVE THE PFCE; PRESS DIRECTION 1 TO 6 ACCOIffilNG 

TO TfE following; 

10110 PRINnAB(8);6;TAB(2fl);"(THESE DIRECTIONS ARE ALSO":PRINTrA 
B(6);5;TAB(10);i;TAe(2fl)J"USED TO AnACK AND RETREAT)";PRINnAB( 

6);i;tab(10);2;printtab(8)J3 

10115 print"f you hish to move less than the maximum press = s 

you must stop f you move next to an opposing pfce (except the 

CAPHAL). 

IT TAKES TWO MOVES TO CROSS A RIVER. 
10120 GOSUB51000 

10125 PRINT:PRINT"N0 PFCE MAY ENTER A MOUNTAIN SQUMC. 
F YOU HISH TO MWE A PFCE IN AN ORDER DIFFERENT FROM THE ORDER 
FQCKERED PRESS = H = AND THE TRS-80 HDl REPEAT THIS PFCE WHEN 
OTHER MOOtNT IS COMPLETE. 

10130 PRINT"F YOU DETHWDC TfttT MOVEMENT IS CWfLETE A» NO FU 
RTHER PFCES NEED BE miED PRESS = F =. YOU CAN /ISO PRESS =C=. 

THIS IS FASTER BUT DOES NOT CHECK FOR PFCES STll M)JACENT FRO 
M THE LAST C(»eAT.";GOSUB51000 
10135 PRINT"ENGINEER 

TTdS PFCE IS /«I TO CUT A ROAD THROUGH MOLNTABIS. THERE A 
RE Ttf«EE TYPES OF MOUNTAIN; ";PRINT; 
10110 F0RA=lT03:PRINrrAB(Axl6);A;TAB(Ail6+5);MT»(A);:NEXTA;PfaNT 

;fory=iitoi5stepi:forx=iitoio8step32;set(x,y):set(x+3,y):>extx,y 

;PRINT;PRINT continued on next page 
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«H5 PRINT" TO CLE/IF: THE RCW) hOVE THE ENGINEER IN THAT DIREC 

HON, A 3 mmm changes to a 2 mountain; a 2 to a 1 M) a 1 t 

A BLANK SPACE. 

10150 PRINT" THE ENGINEER STOFS WHEN CLEARING THE ROAO M) THE R 

EMAIWER OF HIS MO^tltNT IS LOST.":PRINT:GOSUEi51000 

10155 PRINT"RH'ER 

n COSTS TWO MOVES TO CROSS A RIVER UNLESS THERE IS A BRID 
GE. ENGINEEFS may NOT CLEAR A ROAD F TtC RIVER IS IN BETJCEN. 
10160 PRINT :PRINT"THE value of a defender under AnACK IS DOUBlf 
D IF T^C RIVER IS EfDCEN THE DEFENDER AND ATTACKER UM£SS IT IS 

ALSO AHACKED BY ANOTHER PIECE ON THE SAME SIDE OF THE RIVER.": 
GO^JESIOOO 
10165 F'RINT"C0M£:AT: 

WHEN FLAYER MOVES AND FIACES A PIECE NEXT TO AN OFfOSING 

PIECE HE MUST ATTAO(, EACH ATTACKING PIECE ^WST ATTACK =ONE= DE 



FENDER. F THERE IS AN OPHON, Tt€ PFCE HILL FLICKER WITH =AT=. 

10167 F1?INT"THE PLAYER MUST INDICATE THE DF'ECTION OF ATTACK. 

10170 FI^INT" ALL COMBAT TAKES PLACE SIMULTANEOUSLY ON COMPLE 

HON OF MOVEMENT" 

10175 FRINT"AnACKER'S FACTORS! INTEGER V^UE OF 150Z OF W«.l£ 

F AnACtOS. 

10180 F'RINT"DEFENDER'S FACTORS! VALLE OF DEFENDER PLUS (*f< DEFEN 

OER 

ADJACENT TO ATTACKER PROVIDED 
TtWT PFCE IS NOT ALSO UM)ER 

AnAa;.":GosuB5iooo 

10185 F-F:INT"COME¥^T RESULT! 

ATTACHR'S AND DEFENDER'S ODDS ARE ROUNDED TO SDflE 000 
S(E.G. 11 1-^ 1 EECtWES 2-1). THE FOLLOWING TABLE IS CONSULTED AN 
A RAMXM ROW SELECTED! 

10190 FF;INT" 1-6 1-5 1-1 1-3 1-2 1-1 2-1 3-1 1-1 5-1 6-r':F0RA= 
lT06:F0RE;=lT011!PF;INTUSING"#«*";TB(A,B);:NEXTe!F'RINT:tCXTA 

10192 f'rint!pfint"-1 a elim! -2 a ret! exchg! 1 d elim! 2 d r£ 
t";goslib5iooo 

10195 PRINT"-1 ATTACKER(S) ELIMINATED. 
10200 FfllNT" 1 DEFENDER EUMINATED. 

10205 F1:;INT" EXCHANGE ATTAO(ER MUST ELIMIIWTE UF' TO VW.UE 
F OEFENDER.IF THERE IS AN OPTION THE AnACKERS FLICKER WTH =a= 
.F-RESS =€= TO ELIMINATE. FU'ESS =N= IF YOU DO NOT WISH TO ELMNA 
TE.FLICfe^ING CONTINUES UNTIL SUFFICIENT aiMINATED. 
10210 Fi:;INT"-2 ATTACKER RETREATS 2 HLX!";F-RINT" 2 DEFENDER RETRE 
ATS 2 HEX! 

10115 PRINT" THE PIECE FLICKERS HITH=RT=.IT MUST RETREAT AND NOT 
PASS THROUGH ANY HEX ADJACENT TO AN OFfONENT OR MOVE OFF B»«D. 
F n CANNOT, PRESS =£= TO ELIMINATE. 

51000 FRINT9960, "PRESS =ENTER= TO CONTINUE ( =P= TO PRM )"} 
51050 E$=INKEY$!IFB$=""THEN51050 
51060 IFB$="P"GOSUEi35000 ^ 



51080 CLS! RETURN 
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FROM STRATEGIC SIMULATIONS . 



Sink the Bismarck! 

Historic wargaming may be the only intellectual hobby which creates 

more intensely devoted fanatics than home computing When two 

wargamers spend an evening refighting a famous battle, they'll spend 

several hours happily setting up the gameboard, firepower 

charts, unit strength tables and so forth all before the first 

shot can be fired! There are such paper and pencil 

simulations of every famous battle from Shiloh to El 

Alamein. If you've ever tried one, you already know the 

excitement and challenge of trying to be a better general 

than Rommel 
If you've got an Apple II Plus (or an Apple II with 
Applesoft Firmware ROM Card) with 48K memory and a 
5 1 4" mini floppy disk drive, you can be playing 
Computer Bismark in a few days For $59 95, you get the 
game program disc, 2 mapboard charts (for plotting 
secret strategies in grease pencil between moves), 2 ship 
data charts, 2 system command cards, a loading 
instruction sheet, and a rulebook $59 95 
^-» Computer Bismarck is also available for the TRS 80 
Level II on cassette for $49.95 
Disk $59,95 




Ambush! 



Computer controlled mapboard of a typical 

French village- 

Step by step computer regulated play. 

Extensive line of sight rules providing for 

hidden movement. 

Each soldier individually rated for strength, 

intelligence, dexterity, and marksmanship 

Realistic weapons, characteristics, and 

explosives. 

Sophisticated movement rules permitting 

running, walking, crawling, dodging, and 

sneaking. 

Simultaneous execution of orders. 

Ability to save a game in progress and restart 

it at a later date. 

Playing time 1 to 5 hours. 48K Machine 

Language Disk $59.95 



a^ 



(1 V</(hSlnv(.ft)x(>« Mi/Zore/N/fOK)';; H)l-b7i-'il44 

TO ORDER TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 
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INTERACTIVE 
FICTION 

Step into a new 

dimension 

in 

literature. 

NEW! From 
Adventure International 
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recordings 



AMP RECORDING 

AND 

DUPLICATING SERVICE 

609 667-1667 

307 West Main Street 
Maple Shade, NJ 08052 



Traditionally, literature has 
been a oneway medium. The 
information flow was from the novel 
to the reader, period. Interactive 
Fiction changes this by permitting 
the reader to participate in the story 
itself. 

The computer sets the scene 
with a fictional situation, which you 
read from the terminal. Then you 
become a character in the story: When it's your 
turn to speak, you type in your response. The dialogue 
of the other characters, and even the plot, will depend on 
what you say. 

Robert Lafore, writer, columnist, and programmer, has 
created a series of works in Interactive Fiction . Each is available 
on a 5'/," diskette for use on a TRS-80* Level-II with at least 32K 
memory and one disk drive. 



Six Micro Stories offers a good introduction to Interactive 
Fiction. Six very short stories involve you, the reader, in a variety of 
situations. You are an American spy in Hitler's Third Reich, the pilot of 
a doomed 747, and more. 

Local Call for Death is a detective story in the style of Lord Peter 
Whimsey. Considerably more challenging than the above program, 
this one will put your analytic skills (and social savoir-faire) to the test. 

Two Heada of the Coin is a psychological mystery set in the 
London of Sherlock Holmes. Most challenging of all, this program will 
tax your observational skills and, above all, your imagination. 

On TRS-80 Disk. Requires User to have a copy of TRSDOS 2.2 or 2.3. 

Six Micro Stories $14.95 

Local Call For Death $19.95 

Two Heads of the Coin $19.95 



The Sattwyare Exchange 



6 SouthStriKH, Miltord,NH 03055 
Call toll free 1-800-258-1790 



(In NH call 673-5144) 



For Digital 
needs: 

* AMP "Data-sette" blank 
cassettes 

* Digital cassette 
duplication 

* Storage Boxes 

* Labels - Custom 
printing & blank 



For AUDIO 

needs: 

* On-location music 
recording 

* Record Album 
production 

* Stereo and Spoken 
Word cassette 

duplication 

* Blank cassette and 
supplies 



All cassette work at 
AMP R. & D. is custom 
work to fit your needs. 

Call or write to "Jerry" 
for more information. 
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APPLE REVIEWS 




by Mark Pelczarski 

The Microsoft Z-80 Softcard 
DOS 3.3 

One of the dreams of many since 
microcomputers first became 
available was that someday they'd 
be able to do what the big 
computers could. BASIC is often 
scoffed at by professional 
programmers, perhaps unjustifiably 
if they haven't followed the 
evolution of the language. But 
experienced programmers can 
rightly argue the merits of 
structured languages with IF- 
THEN-ELSEs, DO WHILEs (or 
PERFORM UNTILs), and actual 
parameter passing to subroutines. 
These advantages by name 
wouldn't mean much to those 
who've used only BASIC, but they 
sure can make programming much 
easier. Many have been waiting for 
micros to offer "real" languages, 
such as COBOL or FORTRAN. 

Apple Computer Company has 
hoped that Pascal, itself a very 
good language, would become 
THE higher level language of 
microcomputers. A noble cause, 
but there are notable obstacles. 
The three most popular computer 
languages remain to be three of the 
first developed languages: COBOL 
for business. FORTRAN for 
scientific applications, and BASIC 
on time- shared and micro systems. 
Many equally, or even more, capable 
languages have developed, but have 
met the same fate as the metric 
system in this country. So when 
Mirosoft announced their Z-80 
Softcard, which has the capability 
of handling FORTRAN ,COBOL,and 
Microsoft's BASIC 5.0, the most 
advanced BASIC around, and all 
previously unavailable for the 
Apple, one suspected that they had 
a hot item. Not least among the 
attractions is the fact that 
Microsoft will also have a BASIC 
compiler available for the Softcard, 
something most Apple owners have 
longed for, capable of making mere 
BASIC programs travel at the 
speed of machine language, etc. 

The Z-80 is the other 
microprocessor. Apple, Atari, and 
PET use the 6502 chip. TRS-80, 
Cromemco, North Star, and others 
use the Z-80 chip. Now Apple 
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users can conveniently live like 
either half, with both available in 
one computer. (For the sake of this 
conversation, I've purposely 
ignored other microprocessors. 
That's a whole column in itself.) 
The Softcard also comes with 
CP/M, which is really nothing 
more than an operating system that 
basically combines Apple monitor- 
like commands with DOS-like 
commands. It is, however, widely 
used in micro-systems. 

Having expounded on the 
possible merits, it should now be 
noted that all that is currently 
available is the Softcard with 
BASIC 5.0.FORTRAN,COBOL,and 
the BASIC compiler are merely 
promises for the future; promises 
which shouldn't be doubted since 
they've already been developed on 
other systems, but they will be 
more than inexpensive additions. 
The Softcard works flawlessly, 
plugging into any available slot in 
your Apple. To reasonably 
compare prices with the Pascal 
system you'd actually have to 
include the cost of a 16K memory 
expansion card, which gives your 
Apple the full 64K afforded by the 
Pascal Language system, and extra 
room for the Microsoft languages 
(it is, however, NOT a necessity). 
Such a card is available from 
Andromeda Computer Systems, 
and, even with this included,the Z- 
80 Softcard is the less expensive 
alternative. 

Much has been made of the fact 
that with the Softcard you can take 
advantage of the multitude of 
software already available for Z-80 
systems. True, there is a lot already 
available for the Z-80, and 
particularly for CP/M, the 
operating system most prevalent on 
micros, especially those which are 
business based. But it's not yet 
available on Apple formatted disks. 
There is the possibility of being 
able to download through a phone 
connection, but there may also be 
problems with that approach with 
compatibility of the programs with 
Apple's input/ output structure. 

Microsoft's BASIC 5.0 is a joy 
to use. It has several features not 
available with Apple's B ASICs, 
such as the inclusion of the ELSE 
clause with an IF statement (If 
condition is true, THEN do this, 
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ELSE do that), WHILE and 
WEND (While a condition is true, 
repeat these steps), PRINT USING 
(easy formatting of output), real 
disk commands (unlike Apple's 
ungodly PRINT D$ approach), 
BUTTON (no more PEEKing to 
find a pressed paddle button), and 
HSCRN (to tell whether a point on 
the HI-RES screen is on or ofQ. 
To use the HI-RES commands, 
which are in GBASIC, an 
extension of BASIC 5.0, you'll 
have to be able to use a 16 sector 
disk. The 13 sector version does 
not support the HI-RES graphics, 
so you'd need a very new Apple, 
the DOS 3.3 upgrade, or the 
Pascal system. Both the 13 sector 
and 16 sector version are included 
with the Softcard, along with two 
nice, thick, and well done manuals: 
one about the Softcard and the use 
of CP/M, and the other about 
BASIC 5.0. 

If you are looking for a more 
sophisticated programming 
language, or if you were 
considering the Apple Pascal 
Language system, the Z-80 
Softcard is well worth 
investigating. 

DOS 3.3 

We got a copy of the DOS 3.3 
upgrade kit a few days ago. Priced 
at $60, it should not be considered 
a necessity for Apple owners. Its 
main advantage is that it provides 
over 20% more room on each disk 
you use. It also has a single drive 
copy program included, as well as 
a file maintenance program, which 
basically lets you perform DOS 
commands for files or sets of files 
in only a few keystrokes. The 
disadvantage is that part of the 
upgrade is the replacement of two 
chips, meaning you can't freely 
switch from DOS 3.2 to DOS 3.3 
and back. DOS 3.2 disks can be 
converted to DOS 3.3, unless they 
are copy protected in certain ways. 
If so, they can still be run with 
DOS 3.3, but you must first boot 
with a special BASICs disk that is 
provided with the upgrade. This 
means that most commercial 
programs now available will 
require a double boot for use, an 
inconvenience that for now may 

continued on next page 



continued from previous page 

outweigh the advantages of the file 
manager program. A possible 
advantage mentioned earlier is the 
availability of the Z-80 Softcard's 
16-sector disk, if you have that 
product. 

Unless you need extra space on 
your disks for file storage, don't 
assume that DOS 3.3 is a necessary 
upgrade. 



® 




ATARI SOFTWARE 

TIHKE 

DIMENSIONAL 
GRAPHICS 
PACKAGE 

by Tim Hays 



Construct data base 

by entering geometric 

coordinates, then 

view from different 

angles. Four 

programs. Low 

resolution requires 

8K, high resolution 

16K, demonstration 

program, 24K. Atari 

400 or 800. 



$29.95 



A 



TO ORDER TOLL FREE 

1.800-258-1790 

(in NH call 673-5144) 



Now you can have 
a way with words . . . 

Scripsit - the new 

word processor from 
Radio Shack! 




SCRIPSIT features tower case capability; total documentation 
formatting; error correction by deletion, insertion, overwriting and 
exchanging; automatic headers, footers, and page numbers; global 
find, replace, and delete; Operator-defined blocks for hyphenation 
and editing. 

SCRIPSIT will produce letters or any text material. The documents 
can be stored on disk for revision and update. 

If you've seen or used the Electric Pencil, you'll be delighted with 
SCRIPSIT's versatility and extra features. Rapid typists will appreciate 
the fact that SCRIPSIT does NOT lose letters at the end of each line. 
Titles can be automatically centered. Screen width can be changed 
to match your printer. Tabs can be set, etc . . . 

If you are a BASIC programmer, you'll want to utilize SCRIPSIT's 
ability to work directly with BASIC programs. 

SCRIPSIT comes on disk with thorough documentation and 
sample text files. Includes three audio cassette tapes which cover all 
aspects of this exciting Word Processing Package. 

32K Level II TRS-80; one or more disk drives; lineprinter. 

The Complete SCRIPSIT Package (with Binder, Manual, 2 Disks, 3 
Cassettes, Instruction Summary Card and special press-on key labels) 
is only $95.00 + $2.00 shipping. 

NEWI Scripsit Cassette/32/M $65.00 + $2.00 shipping 



The Sohware Exchange 

6 South Street, Millord, NH 0305S 

TO ORDER TOLL FREE 
1-800-258-1790 

(in NH 673-5144) 



LJii 



VISA 
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COLLISION 




by Mark Pelczarski 

Collision is an Apple program 
that requires 16K and Applesoft in 
ROM. 

You may recognize this program 
as an arcade-type game that has 
also gone under the name "Head 
On." The game board consists of 
five concentric tracks, each 
covered with mines that are worth 
points to you when you pick them 
up. Your vehicle travels around the 
track counterclockwise, while the 
computer has a vehicle moving 
clockwise on a collision course 
with you. Fortunately, there are 
four points in the track where you 
may change lanes to avoid the 
oncoming vehicle by steering with 
the paddle control. You may also 
double your speed by holding 
down the paddle button (use 
paddle zero). 

Each mine that you pick up is 
worth one point. Occasionally, the 
computer's vehicle will drop 
special bonus mines that are worth 
five points each. When you clear 
an entire rack you are given a new, 
complete one. If at any point you 
think you've got the game 
mastered, wait until you try the 
third rack. (No one, to date, has 
made it past three.) 

The program itself uses a table 
of three shapes. The first is a 
regular mine, the second is a bonus 
mine (which is larger), and the 
third is the rocket-Uke vehicle. It 
also uses POKEs and PEEKs for 
storing the board's status, instead 
of an array that would take more 
space and be more time-consuming 
in operation. Oh, and for those of 
you who cringe when they see one 
of my programs in anticipation of 
a few dozen lines of shape table, 
there's only one DATA statement 
in this entire program! (I'm 
learning how to avoid droves of 
phone calls.) 

Collision - Variables 

A,A$,B - used in poking shape 
table into memory. 

C - count of how many mines are 
left. 
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DC,DD,DY - direction (1-4) of the 

computer 1, computer 2, and you. 

HS - high score. 

I - loop counter. 

L - pointer to memory locations. 

LC,LD,LY - level in track; 1-inside, 

5-outside. 

R - random number to choose 
whether new mines appear. 

RK - number of racks cleared. 

S - start of the board table in 
memory. 

SC - score. 

SW - if the computer has two 
vehicles, this tells which has the 
next move. 

T - how many moves you get 
(doubles when paddle button is 
pressed). 

X,Y - coordinates used in setting 
up board. 

XC,YC,XD,YD,XY,YY - x,y 
coordinates at any time of 
computerl, computer2, and player. 

Z - working storage, used to 
minimize the number of long 
computations. 




10 REM CnilTEION 

20 REh C. 1980, MARK FtLCZARSKI 


70 IF AES (XY - 11) > 1 AM) AES 
(YY - 6) > 1 TICN 110 


Initialiistion starts 3t 1000, 


Shift track check depends on 
directiofi. 


50 GOTO 1000 


75 ON DY GOTO 80,85,90,95 
80 IF XY = 12 THEN 150 


If bLitton is pushed, double aow 
speed. 


82 2 = INT ( FDL (0) / 86) - l.'L 

Y = LY + z:yy = YY + z: F L 

Y < 1 OR LY > 5 THEN LY = LY 


60 IF FtEK ( - 16287) > 127 THEN 


- z:yy = YY - Z 
81 GOTO 150 


T - 2 


85 IF YY = 5 THEN 150 


Erase your vehicle, 


87 Z = INT ( POL (0) / 86) - l.'L 
Y = LY ♦ Z:XY = XY - Z: IF L 




Y < 1 OF; LY > 5 THEN LY = LY 


65 HmiOR= O: ROT= DY * 165 DRAW 
3 AT 6 + 12 I XY,6 + 12 x YY 


- z:xY = XY + Z 

89 GOTO 150 

90 IF XY = 10 THEN 150 




92 Z = INT ( F>OL (0) / 86) - V,L 




Y = LY + z:yy = YY - z: IF L 


Are you at a location where you cari 


Y < 1 OR LY > 5 THEN LY = LY 


switch tracks? 


- z:yy = YY + Z 
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91 GOTO 150 

95 ff YY = 7 THEN 150 

97 Z = INT ( POL (0) / 86) - l.'L 

Y = LY + Z:XY = XY + Z: IF L 

Y < 1 OR LY > 5 THEN LY = LY 
- Z:XY = XY - Z 

99 GOTO 150 

Change direction? (if at corner) 

lie F AE:S (XY - 11) < LY + 6 OR 
m (YY - 6) < LY + 1 TfCN 
150 

120 DY = DY - i: IF DY = THEM D 

Y = 1 

Change positionf 

150 ON DY GOTO 160,170,180,190 
160 XY = XY + i: GOTO 200 
170 YY = YY + i: GOTO 200 
180 XY = XY - i: GOTO 200 
190 YY- = YY - 1 

Cheek for collision. 

200 IF XY = XC AND YY = YC THEN 

1013 
205 IF RK > 2 THEN IF XY = XD AND 

YY = YD THEN 1013 

Check for points. 

210 Z = XY I 13 + YY + S: IF PEEK 
(Z) < 1 THEN 210 

Erase nine. 

220 R-OT= O: DRAW PEEK (Z) AT XY 

X 12 + 6,YY I 12 + 6:SC = S 

C + ( F-EEK (Z) - 1) X 1 + i: 

C = C - i: FDKE Z,fl: VIAE; 22 

} HTAe 15 F'RINT SC 



If sll erased, new rack.. 



230 IF C = THEN 1015 
210 IF T = 2 THEN T = 11 GOTO 11 




Redraw v-ehicle. 



250 HCa.OR= 7J ROT= DY x 16: DRAW 
3 AT XY X 12 + 6,YY x 12 + 6 



If two conputer vehicles, check 
which one noves. 

260 IF RK > 2 THEN T = ZISW = 1 - 
^: ON SW + 1 GOTO 300,500 

Mo-i« first coMPLiter vehicle. (Sane 
sequence as Moving yours.) 

300 HCOLOR= O: ROT= DC x 16: DRAW 
3 AT XC X 12 + 6,YC x 12 + 6 

305 Z = FtEK (XC x 13 + YC + S): 
IF Z THEN HCOLOR= Z: ROT= 
O: DRAW Z AT XC X 12 + 6,YC x 
12 + 6 

310 IF XC < > 11 AND YC < > 6 THEN 
360 

315 R = O: F RND (1) < .05 THEN 
R = 1 

320 Z = SGN (LY - LC):LC = LC + 
Z 

330 ON DC GOTO 335,310,315,350 

335 YC = YC - Z: GOTO 100 

310 XC = XC + Z: GOTO 100 



315 YC = YC + Z: GOTO 100 
350 XC = XC - Z: GOTO 100 
360 F ABS (XC - 11) < LC + 6 OR 
A£S (YC - 6) < LC + 1 THEN 

100 
370 DC = DC + i: F DC = 5 THEN D 

C = 1 
100 ON DC GOTO 110,120,130,110 
110 XC = XC + i: GOTO 150 
120 YC = YC + i: GOTO 150 
130 XC = XC - i: GOTO 150 
HO YC = YC - 1 
150 IF XC = XY A^D YC = YY THEN 

1013 
155 F NOT R THEN 170 
157 Z = XC X 13 + YC + S: IF PEe( 

(Z) = THEN C = C + 1 
160 POKf Z,2 
170 IF T = 2 THEN T = i: GOTO 30 


180 HCOLOR= 5: ROT= DC x 16: DRAW 

3 AT XC X 12 + 6,YC x 12 + 6 

190 GOTO 60 



Move second conputer vehicle. 



HCOLOR= O: ROT= DD x 165 DRAW 
3 AT XD X 12 + 6, YD x 12 + 6 



505 Z = FtEK (XD X 13 + YD + S): 
F Z THEN HCOLOR= Z: ROT= 

O: DRAW Z AT XD X 12 + 6,YD x 

12 + 6 
510 F XD < ;> 11 AND YD < > 6 THEN 

560 
520 Z = SGN (LY - LD):LD = U) + 

Z 
530 ON DO GOTO 535,510,515,550 
535 YD = YD - Z: GOTO 600 
510 XD = XD + Z: GOTO 600 
515 YD = YD + Z: GOTO 600 
550 XD = XD - Z: GOTO 600 
560 IF ABS (XD - 11) < LD + 6 OR 
ABS (YD - 6) < LD + 1 THEN 

600 
570 DO = DO + i: F 00 = 5 THEN D 

D = 1 
600 ON DD GOTO 610,620,630,610 
610 XD = XD + i: GOTO 650 
620 YD = YD + i: GOTO 650 
630 XD = XD - i: GOTO 650 
610 YD = YD - 1 
650 IF XD = XY WD YD = YY THEN 

1013 
652 IF XD = XY AND YD = YY THEN 

1013 
655 F T = 2 THEN T = i: GOTO 50 


660 HCOL0R= 5: R'OT= DD x 16: DRAM 

3 AT XD X 12 + 6,YD x 12 + 6 

670 GOTO 60 

Co initialize shape table. 
1000 GOSUB 1300 

1010 POKE 232,0: POKE 233,30 
Initialize variables. 

1011 HS = o:sc = o:sw = o 

New gane. 
1013 IF SO HS THEN HS = SC 

1011 SC = o:rk = 

New rack. 

1015 C = 200:RK = RK + 1 



Draw layoi.it. 



1020 
1030 



HGR : HCOLOR= 6 

FOR Y = TO 60 STEP 12 
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1010 HFtOT Y J TO 276 - YJ TO 2 


Fi.rt in the nines. 


If «ore thari two racks enptied, set 


76 - Y,156 - Y TO Y,156 - Y TO 


1125 Hnni.OR= i: rot= o: scale= i 


the second for the conpiiter (D). 


Y»Y 




1255 IF Fi< > 2 THEN XD = 10:YD = 


1050 fEXT 


1130 FOR Y = TO 1 


o:do = i:ld = 5: rot= do x i 


1060 HCOLOR= 


IHfl FOR X = TO 9 


6: DRAW 3 AT XD X 12 + 6,YD x 


1070 FOR Y = 12 TO 18 STEP 12 


1150 DRAW i AT 6 + 12 I X,6 + 12 


12 + 6 


1080 HF1-0T Y,65 TO Y,91 


I Y: Ft)KE 13 X X + Y + S,l 


1260 HOHE : VTAe 21: PFONT "SCOR 


1090 HFtOT 276 - Y,65 TO 276 - Y 


1160 DRAW 1 AT 270 - 12 « X,6 + 


E","HIGH SCORE": PRINT SC,HS 


,91 


12 t y: FWE 13 X (22 - X) + 




1100 mOT 125,Y TO 151,Y 


Y + S,1 




1110 HFtOT 125,156 - Y TO 151,15 


1170 DRAW 1 AT 6 + 12 I X,150 - 


J.iMP to fwvenent section. 


6 - Y 


12 x Y: Ftr£ 13 K X + (12 - 




1120 NEXT 


Y) + S,l 


1270 FOR I = 1 TO 1000 : NEXT : GOTO 




1180 DRAW 1 AT 270 - 12 i X,150 - 


60 


Instead of using an array to store 


12 x YJ POKE 13 x (22 - X) + 




the board ststiis, 299 bytes are 


(12 - Y) + S,l 


Load shape table. 


ijsed to store the contents of each 


1190 ^EXT X: NEXT Y 




location on the tmard: if efipty, 


Initial locations for you (Y) and 


1300 L = 7680 


arid 1 if there's a Mine. The board 


the coMputer (C). 


1310 A* = "030fl08000B-0012003£2CflO 


is 23 by 13, and the proper 




3E2F2E2C3C3C0037373F3E362E2C 


location is foind with the forfujla 


1220 XC = lOJYC = 12:DC = 3JLC = 


252D352D2E21XX272700" 


S+X.tl3+Y, where S is the start of 


5 


1320 FOR I = 1 TO 72 STEP 2 


the table. This techniqtje saves 


1230 XY = 12:YY = 12JDY = IJLY = 


1330 A = ASC ( HID* (A$,I,1)) - 


both tine arid space. 


5 


18: IF A > 9 THEN A = A - 7 




1210 Rt)T= DY X 16: HCffl.«<= 7: DRAW 


1310 E; = ASC ( fflDS (A*,I + 1,1) 


1121 S = 7716 


3 AT XY X 12 + 6,YY x 12 + 6 


) - 18: IF E: > 9 THEN B = B - 

7 


1122 FOR L = S TO S + 298: POKE 


1250 ROT= DC X 16: HCOLOR= 5: DRAW 


1350 FtlKE L,A x 16 + B:L = L + W 
: NEXT i: RETURN © 


L,0: NEXT 


3 AT XC X 12 + 6,YC x 12 + 6 



The Lazy Man's Shortcut to 

Machine 

Language! 



IIUUI ii)Miiiii!Mni JLJL ■■ 

i ^^- ^ 




■^'iwpwsipps 



Tiny Comp 



by David Bohlke 








A BASIC Compiler in BASIC! Run your source program in BASIC, compile it into FAST Z-80 Code and 
execute the compiled version — all without reloading 26 integer variables, GOTO, GOSUB, END, REM, RND, 
LET, +, *, /, IF, THEN,<, =, >, INKEY$, CLS, PRINT@, CHR$, PEEK, POKE, Compiled programs may be saved 
via TAPEDISK. 

Supplied with game program, "3D TIC TAC TOE", which uses all of the TINY COMP statement set and is 
ready to compile. 

Manual includes several sample programs as well as thorough documentation of the Compiler for those who like 
to know "how things work" and for those who might even wish to EXPAND on TINY COMP's capabilities. 
Tape version: $19.95 Disk version: $24 95 

The SoHware Exchange 

6 South Street. Milford, NH 03055 
ORDER TOLL-FREE: 

1-800-258-1790 

(In NH call 673-5144) 
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BOWLING 




APPLEBOWLER 

from 

COM-SOFT 

(Submitted by Phillip Case) 

Applebowler for the Apple works 
with 16K memory and requires 
Integer BASIC in ROM. 

APPLEBOWLER is a one or 
two player 16K full color graphics 
program which takes you to the 
lanes without leaving your living 
room. Also with this program you 
need not worry about straining 
yourself. 

To play, the first thing you do is 
enter the number of players and 
the difficulty level (1-3). The 
difficulty level determines the 
speed of the position indicator. 
Once started, all further input is 
from the paddle buttons only. 

If only one person is playing, 
then be sure to use paddle zero. 
The high score to date is 273, see 
if you can beat that. 

VARIABLES: 
MATRIX VARIABLES: 

A(l-lO) = Indicators to tell if pin is 

still standing. 
C(l-13) = 1st player's individual 

frame scores. 
C(14-23) = 2nd player's individual 

frame scores. 
B(l-lO) = 1st player's total 

cumulative scores. 
B(14-23) = 2nd player's total 

cumulative scores. 




NON-MATRIX VARIABLES: 

V = Number of players. 

TI = Difficulty factor. 

K = Player turn indicator. 

X = Path of ball down alley 

& misc. logic. 
G = The current frame in 

play. 
S = Sound producing 

address. 



Di«ensions Henory 


60 FOR X=Y to Z step SGN (Z-Y) 




: C0L0R=C2: plot i,xx: color= 


REM tfPlfBOUER FROH COM-SOFT 


0: PLOT 0,X 


SUBMIIIEDBYPHTIIPCASE 


1 DIM B(26),C(26),A(10>: CMX 


Scan for paddle input. 


-936 


63 F PEEK (-1628tt+K)>127 TICN 


Initializes Variables 


90 




Difficulty delay loop. 


2 TE)(T : CWl -9365 PRINT "HOH Wk 




Y PLAYERS (1 OR 2)"}: DfUT 


65 XX=X 


V: ff V<1 OR V>2 THEN 2 


66 F Tl=l THEN 70: FOR Zl=l TO 


3 FOR X=l TO 26:B(X)=B:C(X)=0 


(Tl-1) ^ 3: NEXT Zl 


; fcxT x; FOR x=i to io:a(X) 


70 fCXT X: G09UB 2500rfHfti: F 


=fl: NEXT X 


H MOO 2=0 TICN 77 


^ PRINT "DIFFICULTY FACTOR (1-3)" 


Reset indicators to nove ball other 


;: INPUT TiJTi=i-Ti: if ti< 


direction. 


1 OR Tl>3 THEN 1 




5 XX=1:H=1: DU -936 


75 Y=i:Z=18: GOTO 60 




V z=i:y=ib: goto 60 


6 K=l 




8 C2=13!C1=2:G=1 


Display ball rolling down alley. 




90 REM 


This routine is the create the 


95 C0L0R=C2: PLOT fl,XX 


screen graphics display. 


98 PLOT 0,X 


9 GR : COLOR=Ci: HLIN 0,39 AT 
O: HIN B,39 AT 19: COL0R=C2: 


100 YY=0: FOR Y=1 TO 39: F S(JRN( 
Y,XX)=C1 T1€N 105: COL0R=C2: 

PLOT YY,XX 

101 coLOR=o: PLOT y,xx:yy=y 


FOR X=fl TO 39; VLIN 1,18 AT 
X: ICXTX 

ig T=i 


102 FOR Zl=l TO (Tl-1) '' 3: >EXT 


20 C0L0R=C1 


Z1,Y 


51 PLOT 37,5: PLOT 37,6: PLOT 


Check X=(P3th of ball) S call 


37,9: PLOT 37,10: PLOT 37,13 
: PLOT 37,11 
52 PLOT 35,7: PLOT 35,8: PLOT 


various subroutines depending upon 


pin patterns and randon elenents, 


35,11: PLOT 35,12: PLOT 33, 


105 colons: PLOT YY,XX 


9: PLOT 33,10 


109 X=XX 


53 PLOT 39,3: PLOT 39,i: PLOT 


110 F X=2 OR X=3 THEN 900 


39,7: PLOT 39,8: PLOT 39,11 


111 F X=16 OR X=17 THEN 902 


: PLOT 39,12: PLOT 39,15: PLOT 


112 F X=11 OR X=15 TICN 910 


39,16 


113 F X<2 OR X>17 THEN 200 


51 FOR X=l TO 10:A(X)=1: NEXT 


111 F X=1 OR X=5 THEN 920 


X 

55 y=i:z=ib:h=i 


115 F X=6 THEN I8O: F X#7 THEN 


56 COLOR=0: FOR X=19 TO 225 WJN 


120: GOSUB 220: GOSIB 210: GOSUB 


21,35 AT x: NEXT x:gg=g: f 


280: IF A(1)=l MD A(2)=l THEN 


GG>10 THEN GG=10 


GnSIIR 270: F A(1)=l AM) RND 


58 F G=G5 AND K=K1 THEN C3=3: 


(2)=1 THEN GOSUB 270 


F K#K1 OR G«S THEN C3=15 




: F G>18 THEN C3=3:K1=K:G5= 


116 F A(2)=l TICN 1300 


g: onsiiR 1500 


119 GOTO 200 




120 F X=13 THEN 190 : F X#12 THEN 


Move pin pointer back I forth. 


12s: GOSUB 230: GOSUB 260: GOSUB 


And reset old position. 


290: F A(6)=l m A(3)=l THEN 
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GOSUB 300: IF A(6)=l AM) RND 
(2)=1 TtEN GOSUB 301 

121 IF A(3)=l THEN 1350 

122 GOTO 200 

125 F X»8 THEN 135 

126 GOSUB 210: GOSUB 220: GOSUB 
280: IF A(l)=l OR A(2)=l THEN 
GOSUB 270 

127 IF A(l)=l AND RND (1)>0 THEN 
GOSUB 301 

128 F A(l)»l THEN GOSUB 250 

129 IF A(l)=l OR A(2)=l THEN GOSUB 
210 

130 F A(l)=l AND A(5)=l tUD M 
8)=1 MO RND (3)>0 THEN GOSUB 
290 

131 F RND (3)=1 AND A(l)=l THEN 
950 

132 GOTO 200 

135 F Xtll THEN 115 

136 GOSUB 210: GOSUB 230.' GOSUB 
290: F A(l)=l OR A(3)=l MO 
RM) (1)>0 THEN GOSUB 300 

137 F A(l)=l AND RND (1)>0 THEN 
GOSUB 270 

138 F A(l)=l OR A(3)=l THEN GOSUB 
260 

139 IF A(l)#l THEN GOSUB 250 

111 F R«) (3)=1 AND A(l)=l TfCN 
960 

112 F A(l)=l MC A(6)=l AND A( 
9)=1 AM) RND (3)>1 KEN GOSUB 
280 

in GOTO 200 

115 IF X=10 THEN 178 

117 GOSUB 210 ; F RND (6)>0 TJ£N 
GOSUB 250 

118 GOSUB 220: GOSUB 280! F A( 
1)=1 TI£N GOSUB 230 

119 F A(l)=l OR A(2)=l THEN 970 




150 F A(l)=l AM) RM) (6)>0 TfCN 
980 

151 F A(1)=0 m A(5)=l T^CN 990 

152 F A(5)=l AM) RM) (5)>fl TtCN 
GOSUB 290 

153 GOTO 200 

170 GOSUB 210! F FM) (6)>0 THEN 
GOSUB 250 

171 GOSUB 230: GOSUB 290: F A( 
1)=1 THEN GOSUB 220 

172 IF A(l)=l OR A(3)=l THEN 1000 

173 F A(l)=l AND RND (6)>0 THEN 
1010 

171 F A(1)=0 AND A(5)=l THEN 1020 

175 F A(5)=l AND RND (5)>0 TfCN 
GOSUB 280 

176 GOTO 200 

180 GOSUB 220! GOSUB 210! GOSUB 
280! F A(8)=l OR A(1)=l THEN 
GOSUB 270 

181 F A(2)=l THEN 1030 

182 F A(3)=l AND A(5)=l AND RND 
(3)>0 THEN GOSUB 250 

183 F A(2)=l AM) RND (2)=1 Tf£N 
GOSUB 290 

181 GOTO 200 

190 GOSUB 230! GOSUB 260! GOSUB 
290! IF A(9)=l OR A(6)=l THEN 
GOSUB 300 

191 F A(3)=l THEN 1010 

193 F A(3)=l AM) RND (2)=1 THEN 
GOSUB 280 

200 GOSUB 2000 

201 F TOl TICN 202!RR=10-J!B( 
G+13iK-13)=10-J! F B(G+13i 
K-13)#10 THEN 202!B(G+Kil3- 
13)=20!X=2: GOTO 100 

202 F T#l THEN 2J3!T=0! GOTO 55 

203 IF T=0 TWEN 1200 

Rewove pins tron screen routine. 

210 Y=33!Z=9! GOTO 310 

220 Y=35!Z=7! GOTO 310 

230 Y=35!Z=11! GOTO 310 

210 Y=37!Z=5! GOTO 310 

250 Y=37!Z=9! GOTO 310 

260 Y=37!Z=13! GOTO 310 

270 Y=39!Z=3! GOTO 310 

280 Y=39!Z=7! GOTO 310 

290 Y=39!Z=11! GOTO 310 

300 Y=39iZ=15 

310 C0L0R=C2! FtOT Y,Z! PLOT Y, 

Z+1 
Create sound effects. 

311 S=-16336 

318 FOR 11=1 TO 3 
320 LT= PEEK (S) 
325 NEXT II 
350 RETURN 

Deternine perforMance 
360 PRINT ""!! RETURN 



100 F G=l Tt£N 116 

101 F G=2 T>£N 105 

101 F B(G-2+Kil3-13)=20 AND B( 
G-1+Kil3-13)=20 TJCN 1100 

105 D=e(G+Kil3-13)! F D=20 THEN 
0=10 

107 F B(G-1+K«13-13)=20 AM) B( 
G+13»K-13)=20 THEN 500 

110 F B(G-l+13iK-13)=20 THEN 1100 

115 F B(G-l+13iK-13)=10 THEN 1110 

116 IF B(G+13iK-13)=10 OR B(G+13 
iK-13)=20 THEN 500 

120 F G<=10 THEN 1120 
no REM 

500 GG=G! F G>10 THEN GG=lfl 

501 B=e(G+13iK-13)! F B>9 THEN 

GOSUB 360! F B>10 THEN GOSUB 

360 
Print score. 

502 VTAB 21K+19! TAB Gi3!B=B(G+ 
13IK-13)! F B<10 THEN PRINT 
RRJB-RR}! F B=20 THEN PRINT 
"X"!! IF B=10 THEN PRINT RR! 

Erid of Qsne routine. 

503 IF V=l THEN 508! F G>=10 AM) 
K=l AM) C(10+13iK-13)=0 THEN 
1130 

501 F 1=1 THEN 1110 

505 IF G>=10 AM) K=2 AND C(23)= 

T^EN 1150 

508 F C(10+Vil3-13)#0 THEN 600 

509 F V=l THEN 1150 

510 F K=2 THEN 1170 !K=2! GOTO 
10 

Print totals and end gane. 
600 FOR X=l TO 2000! NEXT X 

602 TEXT ! C/IL -936 

603 PRINT 

605 FOR X=l TO V! PRINT "PLAYER " 
!X!"'S SCORE HAS "JCdO+XUS 
-13)! PRINT ! PRINT ! NEXT 
X 

610 PRINT "PRESS RETURN FOR ANOTHER 
GA«"|! INPUT A$! GOTO 2 

Continuation of pin-reaction 

subroLitines. 

900 GOSUB 270! F X=2 AM) A(7)= 

1 THEN GOSUB 280 

901 GOTO 200 

902 GOSUB 300! F X=17 AND AdO 
)=1 THEN GOSUB 290 

903 GOTO 200 

910 GOSUB 260! GOSUB 300! F A( 
6)=1 THEN 915 

912 F AdO) =1 AM) X=11 THEN 915 

913 GOTO 200 

915 GOSUB 290! GOTO 200 

920 GOSUB 210! GOSUB 270! F A( 

1)=1 THEN 925 
922 F A(7)=l AND X=5 THEN 921 
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923 GOTO 200 

921 GOajB 290 : GOTO 200 

925 GOSUB 280 : GOTO 200 

9SD GOSUB 250: GOSUB 2301 GOSUB 

260 : GOSUB 290 : GOTO 200 
960 GOSUB 250: GOSUB 2201 GOSUB 

210 : GOSUB 280 : GOTO 112 
970 GOSUB 210 : GOSUB 270 : GOTO 

150 

980 GOSUB 260: IF RND (8)>1 ^m^ 
GOSUB 300 

981 GOTO 151 

990 GOSUB 290: GOSUB 250: GOTO 

152 
1000 GOSUB 260: GOSUB 300! GOTO 
173 

1010 GOSUB 210J If RND (8»1 THEN 
GOSUB 270 

1011 MTO 171 

1020 GOSUB 280: GOSUB 250: GOTO 
175 

1030 GOSUB 250: GOSUB 260: IF A( 
5)=1 AND RM) (1)>1 T^ GOSUB 
300 

1031 GOTO 182 

1010 GOSUB 2S0: GOSUB 210: F A( 
5)=1 AND m> (1}>1 THEN GOSUB 
270 

1011 GOTO 193 

Special scoring routines for 
strikes i spares* 
1100 C(G-2+Kil3-13)=C(G-3-H<il3-13 
)+20+RR 

1105 VTAB 2iK+20: TAB 00-6: PRINT 
C(G-2+13«K-13); 

1106 F B(G+13iK-13)=20 TfCN 500 
1108 GOTO 105 

1110 C(G-l+13iK-13)=C(G-2+13iK-13 

)+io+rr: f g<12 then 1115 

nil GOTO 116 

1115 VTAB 21K+20: TAB Gi3-3: PfONT 

C(G-1+13«K-13); 
1118 GOTO 116 
1120 C(G+13iK-13)=C(G-l+Kil3-13) 

+B(G+13iK-13) 
1125 VTAB 21K+205 T« GiS: PRINT 

C(G+13iK-13); 
1128 GOTO 500 

Variable logic for next franes^ 
counters f player updates, etc. 
1130 G=G+i:i=i: GOTO 10 

1110 g=io:k=2:i=o: goto 10 
1150 g=€+i: goto 10 
1170 g=g+i:k=i: goto 10 

Check for spare, update score. 
1200 B(G+13MK-13)=6(G+13»K-13)+10 

-J-RR! F B(G+13iK-13)=10 THEN 

X=l 
1205 GOTO 100 

Continuation of pin-reaction 
subroutines. 



1300 GOSUB 250 : F A(5)tl THEN 200 

: GOSUB 290! F RM) (3)=1 THEN 
200! GOSUB 260! F RND (3)= 
1 Tt£N 200! GOSUB 260! F RND 
(3)=1 THEN 200! GOSUB 300 

1301 F m> (3)>0 THEN GOSUB 260 

1302 F RND (3)>0 Tt£N GOSUB 300 
1305 GOTO 200 

1350 GOSUB 250! F A(5)«l THEN 200 

! GOSUB 280! F RND (3)=1 ^EN 
200! GOSUB 210! F RND (3)= 
1 THEN 200! GOSUB 210! IF RND 
(3)=1 THEN 200! GOSUB 270 

1351 F RM) (3»0 THEN GOSUB 210 

1352 F RM) ft)>0 TfEN GOSUB Z70 
1355 GOTO 200 

Hove scoring logic and print score. 
1100 C(C-l+Kil3-13)=C(G-2+Kil3-13 

)+O+10! IF Oil THEN 115 
1105 VTAB 21K+20! TAB Gi3-3! PRINT 

C(G-l+13iK-13)! 
1110 GOTO 116 

Display frane nunber (Graphically). 
1500 C0L0R=C3! F GG=1 THEN 1550 

! F GC=2 THEN 1560! F GG= 

3 THEN 1570! IF GG=1 THEN 1580 

! F GG=5 THEN 1590! F GG= 

6 THEN 1600 
1510 F GG=7 T»EN 1610! IF GG=8 THEN 

1620! F GG=9 THEN 1610! GOTO 

1630 
1550 GOSUB 1711! GOSUB 1720! RETURN 
1560 GOSUB 1700! GOSUB 1750! GOSUB 

1760! GOSUB 1720! GOSUB 1730 

! RETURN 
1570 GOSUB 1700! GOSUB 1750! GOSUB 

1710! GOSUB 1730! GOSUB 1760 

! RETURN 
1580 GOSUB 1710! GOSUB 1760! GOSUB 

1710! GOSUB 1750 
1585 RETURN 
1590 GOSUB 1700! GOSUB 1710! GOSUB 

1760! GOSUB 1710! GOSUB 1730 

! RETURN 
1600 GOSUB 1700! GOSUB 1710! GOSUB 

1720! GOSUB 1730! GOSUB 1710 

! GOSUB 1760! RETURN 
1610 GOSUB 1700! GOSUB 1750! GOSUB 

1710! RETURN 
1620 GOSUB 1700! GOSUB 1710! GOSUB 

1720! GOSUB 1730! GOSUB 1710 

! GOSUB 1750! GOSUB 1760! RETURN 
1630 VLIN 21,35 AT 16! GOSUB 1700 

! GOSUB 1710! GOSUB 1720! GOSUB 

1730! GOSUB 1710! GOSUB 1750 

! RETURN 
1610 GOSUB 1710! GOSUB 1700! GOSUB 

1750! GOSUB 1760! GOSUB 1710 

! GOSUB 1730! RETURN 
1700 HJN 19,22 AT 21! HJN 19,22 
AT 25! RETURN 



1710 VLW 21,30 AT 19! RETURN 
1720 VLIN 29,35 AT 19! RETURN 
1730 HUN 19,22 AT 31! HUN 19,22 

AT 35! RETURN 
1710 VLIN 29,35 AT 22! RETURN 
1750 WJN 21,30 AT 22! RETURN 
1760 HLIN 19,22 AT 29! HLIN 19,22 
AT 30! RETURN 
Delete all pins then check to see 
which pins are left to be replaced on 

screen. 

2000 J=0! FOR A=l TO 10!A<A)=0! NE)(T 

A 
2005 FOR A=l TO 10 
2010 F A=l THEN 2020! F A=2 THEN 

2030! IF A=3 THEN 2010! F 

A=1 THEN 2050! IF A=5 THEN 

2060 
2012 F A=6 THEN 2070! IF A=7 THEN 

2080! F A=8 THEN 2090! F 

A=9 TtCN 2100! IF A=10 THEN 

2110 
Logic for accunulating total pins 
scored. 

2020 Y=33!Z=9! GOTO 2200 
2030 Y=35!Z=7! GOTO 2200 
2010 Y=35!Z=11! GOTO 2200 
2050 Y=37!Z=5! GOTO 2200 
2060 Y=37!Z=9! GOTO 2200 
2070 Y=37!Z=13! GOTO 2200 
2080 Y=39!Z=3! GOTO 2200 
2090 Y=39!Z=7! GOTO 2200 
2100 Y=39!Z=11! GOTO 2200 
2110 Y=39!Z=15! GOTO 2200 
2200 F SCRN(Y,Z)=C1 THEN 2210! GOTO 

2250 
2210 A{A)=1 
2220 J=J+1 
2250 NE)fr A! RETURN 
Another sound generating routine. 
2500 FOR 11=1 TO 2 
2505 LT= PEEK (S)+ PEEK (S)+ PEEK 
(S)+ PEEK (S)+ PEEK (S) 

2509 NEXT II 

2510 RETURN 
End of program. 
5000 END 
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ENGINEER 




by David Bohlke 
translation by James Hagani 

Engineer is for an 8K Atari with a 
Joysticl( 

Have you ever had the urge to 
build a bridge but just couldn't 
find the time or place to construct 
one? If so, then this simulation is 
for you. 

The object of this game is to 
successfully build a bridge from 
the ground up. You have been 
hired by the San Francisco PubUc 
Works Commission to rebuild the 
famous Golden Gate which was 
recently destroyed by a powerful 
invasion from space. You must 
connect the two blocks at the top 
of the screen. You do so by 
placing beams from the bottom 
until you can support the 
connecting beams across the top. 

There are only a few rules , as 
you are your own boss. You must 
have the right end of the beams 
supported by either another beam 
or the rocky chffs on the side. The 
only other item to be aware of is 
the ever-present inspector, who 
will walk up and down during 
construction. All he asks of you is 
that you lay beams below his feet 



only (so you can't drop one on his 
head). 

The game itself is simple to play 
and win, so the challenge is in 
completing the entire work in as 
few days as possible. To play, all 
you need is an 8K Atari with one 
joystick, which goes into the 
leftmost slot. 

VARIABLES 

DA — days of construction so far. 
X,Y — location of inspector 
M,N — location of pointer on screen 
W — if 1 then move inspector left, 
if then move him right 



18 GRAPHICS e^PCSniOH 13,e ? "BRIDGE EU 

ILDER"^ POSITION 19,1 "■ "P,'" POSITHDH 14. 

2^? "JAMES HAGAHI" 

15 POKE 752,1 OF'EH »2,4,0/'K " 

20 ? :? :? " VOJ ARE mi m OFFICIAL EHZ 

IMEER! ! !"^-7 "VOUR MISSIOtI IS TO BUILD A 

BRIDGE" 

25 ? "CONNECTIH: THE TUj BLOC:tCS AT THE T 

OP":? "OF OF THE SCREEN. YOU DO SO B"f PL 

ACIHG"; 

38 ? "BEAMS BELOW THE IhSPECTOR'S FEET." 

■7 "SIMFIY MOLE THE POINTER TO THE PLACE 

II 

35 ? "U€RE 'lUI WISH TO PLACE THE BEAM, 

THEN"; ^? "EKTER THE DIRECTION YOU WISH T 

SET" 

48 ? "THE BEAM. TRY TO CONSTRUCT THE ERI 

aZ"? "IN AS FEU DAYS AS PCSSIELE." "' - 

? " HIT ANY KEY TO BEGIN, .." 

58. GET #2,A 

Set colors ird sri/H-iic iiode. 



158 GRfPHICS 5 SETCOLOR 2,8,0 FtXE 752,1 
^SETCXOR 1,11,1B^SETC(X.0(; 8,15,0^SETCa 
OR 4,8,4 
155 COLOR 1 
Dhiw blocks at top and random '.lallea. 

lee FOR X=0 TO 79 PLOT X,39^^£>;T X 

165 PLOT 0,8 DRAWTO 5, 8 ^ PLOT 8,9 DRf*JTO 

5,9^PL0T 79,8iDRAWT0 74,8 PLOT 79,9 DRAW 

TO 74,9 

178 Y=10:D=71:X=4 

198 PLOT 0,Y^ DRAWTO X+3,Y:PL0T 79, Y DRW 

TO X+D-3,Y 

288 Y=Y+MF INTCRHXl ,~':tie»3 THEN X=X+1 

^0=0-2 

210 IF Y=39 Tt€H 228 

215 GOTO 190 

Set UP Inspector's initial position 

and tl-ien drau him. 

228 X=29+IKT(RWKiai7) Y=38 
238 GOSUe 1030 

Place beam pointer on screen, not on a 
present beam or- part of yallea. 

240 n=INT(;RKXl>*31)+25 N=0 
260 LOCATE M,N+1,XX 
262 IF XX<>0 Tf€N 288 
270 N=N+rGOTO 268 
288 N=N-10:IF N<a THEN N=0 
285 ? ^? -7 7 ■■■^ "USE JOYSTICK TO ttOt,€ 
BEAM POINTER ."^? " DAY # "jDft+1;" 

OF CONSTRUCTION "? 
290 COLOR 2^PL0T M,N^PLOT n+l,N 

Get input from Joystick on moi.'eiiient of 
beam. 

328 FOR XX=1 TO 2e^NE:<T X:K^C=STICK(0): IF 
C=15 ThCN 320 
338 IF C=7 Th€N 380 
340 IF C=ll T1€N 488 
358 IF C=13 TfBI 428 
368 IF C=14 T>€N 424 
378 GOTO 290 



^^^ 




SO 
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Onsck to see if beii« si'.ould be 
fUced. I1t:><.'e it riai'.t, left, dotiiny or 

38« LOCATE H+2.H,XX IF SOB THEN 448 

3n COLOR a FIOT n..H FtOT ri+l,N^f1=tH2-C0 

L8R 1 GOTO Z?» 

4M LOCATE M-LH.ffilF »;<>* THEN 440 

418 CBLOS' a FIOT fLN^PLUT n+ 1 , fL M=rt-2 CO 

LOR 1 GOTO 290 

428 LOCATE It H+!. XX IF SOB THEN 440 

421 COLOF' FIOT n.HaOT n+l,H H=H+1 CO 

LCf: 1 UUTG 29ti 

424 COLOR FtOT M.H PLOT (1+1,HN=H-! IF 
WA THEH H=I 

425 COLlf; 2 IJJTO 238 

If beiivi 15 it or be low Insrector's 
feet then nove 15 le5i! , otheruiise, 
9i'v'e error ivie55i5e 

446 IF H<Y THEM ? ' "STICK IUST STWT E 
ELOW I KiPECT* " " ■ COL* O ■ FIOT M . N ■ PLOT 
11+ 1,H COLOR 1 

450 IF M:V them FOR I=! TO 280 SOUMD 0,3 
b.jb. jt'HEXT ! SOUND e.O.O.OCOTU 240 



U-.i 



lijiy to 



CP ne:.i be 



4ba ^ ; : " USE JJVSTICK TO SET BE 

Hit" ■ "IN EITHER ! OP DIRECTION" 

465 ■ "TO SET IN DIRECTION, PRESS EiJTT 

ON " 

4cW D=P C^STICfiO' CC=STRIUiS.' li- C=!5 A 

t-B CC=i THEN 4S0 

4fi2 IF C=14 TfEN D=! i: = lS 

483 IF CC=0 THEN D^2 I!=!8 

484 IF r-7 THEN 0=3 il=!g 
4;-fi IF D^ : OP 0,3 THEN 4gS 



Arothei- ds 
510 DA=0h^1 

DriljJ bei;i] 

eri<d . 



work coiii^letad' > ' 



528 FLf I=! TO 18 

525 SOIWD 100 £0.100 hOR' XX=1 

vj >.;^^ SOUND 0,0 0.0 

538 IF n>7b OP N;4 OR rK2 THEN 



10 f£ 



APPLE 

Morloc's Tower $14.95 (c) 

Morloc's Tower $24.95 (d) 

Datestones of Ryn .... $14.95 (c) 
Datestones of Ryn .... $19.95 (d) 

Starfleet Orion $19.95 (c) 

Starfleet Orion $24.95 (d) 

Rescue at Rigel $19.95 (c) 

Rescue at Rigel $24.95 (d) 

Temple of Asphai $29.95 (d) 

Invasion of Orion $19.95 (c) 

Invasion of Orion $24.95 (d) 



548 COLOR 2 FLUT M.H PLOT M+!,.N 

550 lxhTE n+2 n.xx if :v:-/0 and >K;3 T 

FEN 7761 

568 ON D lOTO 578.5y0.-5?0 SOO 
570 I=I + INT' RtO. 1 :'j.2;' H=N-1 11=11 + 1 GOTO 
bl8 
580 11=n+l H=N-1 GOTO £10 
590 M=n+1 GOTO £10 

b0e ii=n+in=n+i 

618 t€XT I 

Oieck if ri?k,t snJe of be-im 15 5iii=- 
ported If rot. erise it, buzz, ini 
try asairi 

620 LOCATE 1H2,N-1,:'"X IF SOO AlO :;\-;>3 
OR 0=1 THEN 776 

638 n=ni n=ni 

650 ■"■ ■■ " "RIGHT EhO !JF EEA.n lUST BE S 

UPfWTEDi" '^ -t<!=I FOR 1=1 TO 280 SatCi 

e,36,3fa,36fCXT I SOt^E 0,0,0.0 

670 IF 93=13 imi UttlS 

672 FOR 1 = 1 TO 00 COLiOR OPLOT M.H PLOT 

mi,N 

675 S0t*O 0, 193,60. IWFCf XX=1 TO 10 IE 

x\ .x:>; Sdici a, 0,0, a 

680 UN D GOTO £?«, 788. 710,720 
690 N=N-rG0T0 736 
780 M=n+1 K=H-1 GOTO 730 
710 t1=n+l GOTO 730 

720 ti=fi+rn=n+i 

738 IF N-<2 THEN 750 

748 h€XT I 

750 REM 

760 GOTO 240 

770 SOt*€ a, 8, 8, 8 IF l.i=8 THEN U=rGuTC 7 

90 

780 W=0 

Insi^ection, moye Irispector left or 
risl-it, iiP ar>:! dowri 

7S« " " IMSPECTIOH " " " 

810 FOR 1 = 1 TO IHT(RH>;i;«40>+10 

820 SOUhC 6,68,6,19 SOUC 0.8,8.0 OlSLE 

1860 

830 IF W=l T1€H 380 

840 LOCATE X-2,Y+1,X1 LOCATE X,Y+1.>S LO 

GATE K+Z.\'+l,>Q.lF XI =8 »C X2-8 »C :>3= 

THEH Y=V+1 GOTO 918 




850 LOCATE X-1,Y,.''C«;TF :«=0 THEH X=X-rC 

OTO 910 

860 LOCATE X,V-1,XXTF K<=% THEH Y=V-1 G 

OTO 910 

878 GOTO 918 

880 LOCATE X+l.Y+l-ffi LOCATE X+3,Y+l,Xr 

LOCATE X,Y+1,>£' IF >i2=0 «C ,X.X^ A«) XI = 

T1£H Y=Y+! GOTO 916 

890 LOCATE X+3,Y,X:'i IF >C>;=0 THEN X=.X+1 G 

OTO 910 

900 LOCATE X,Y-1,.X:«: IF X:>;=8 THEN Y=Y-1 G 

OTO 910 

910 GOSUE 1030 IF Y;b OR X;5 OR X>69 TIC 

N 930 

920 h£XT I 

Check to 5«e if bridse is cocm^lete 
(Beacs i»ust e,xterid fro* tof left block 
to top rislit block ) 

930 PEM 

968 FOR 1=5 TO 75 FOR ..1=5 TO 18 

978 LOCATE I,J-.X>; IF .X:>X>0 THEH 99^. 

980 NE.XT .J GOTO 246 

998 NEXT I 

You t-.ai.'e fimsk.ed tkc 9a«e Pf^nt out- 
come atTd start 191 m 

1088 FOR Z=l TO 5 FOf; 21=2813 TO 38 STEP 
-7^S0LMJ e,Zl,18,7 SOOCi 1,21+7, 18.7 SOU 
HD 2.Zl+14,10,7^fEXT 21 hEXT 2 

1085 "^ "rTXI'LE FINISHED IT TOOf: 

YOU" ■? "A TOTAL OF ",Ofl; " DAYSi 1 ' 1 1 1 i" 
1887 FOR X=0 TO 2 SOUtC X,6,0,6 It.^T X 
1818 "^ "PRESS AffV KEY TO FlAY AlSI.N , 
... ."GET #2,A RUM 

SUvoutirie to dt~aw Inspector in his 
black suit. 

1038 COLOR 3 PLOT X.Y PLOT X+1,Y-1 PLOT 

X+2.Y PLOT X+!,Y-3 PLOT .X.Y-2 PLOT .X+1,Y 
-2 PLOT X+2,Y-2 RETURN 

Erase Irsf*eirtor so he iiar be redt^aun 

1958 COLOR 8 PLOT X,Y PLOT .X+1,Y-1 PLOT 

X+2.Y PLOT X+l,Y-3 PLOT X,Y-2 PLOT X+1,Y 
-2: PLOT X+2,Y-2 RETURN 



© 



Fantasy at 
your finsiertips! 



TM 



lAi 



AUTOMATED 
SIMULATIONS 



TRS-80 S. 

Rescue at Rigel $19.95 (c) 

Rescue at Rigel $24.95 (d) 

Datestones of Ryn $14.95 (c) 

Datestones of Ryn $19.95 (d) 

Starfleet Orion $19.95 (c) 

Starfleet Orion $24.95 (d) 

Invasion of Orion $19.95 (c) 

Invasion of Orion $24.95 (d) 

Temple of Asphai $29.95 (d) 

Temple of Asphai $24.95 (c) 

Morloc's Tower $14.95 (c) 

Morloc's Tower $19.95 (d) 



PET 1H 

starfleet Orion $19.95 (c) 

Rescue at Rigel $19.95 (c) 

Temple of Asphai $24.95 (c) 

Invasion of Orion $19.95 (c) 

Datestones of Ryn $14.95 (c) 

Morloc's Tower $14.95 (c) 



The 



6 South St.. Milford. NH 03055 
Order TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 



SoflSide NOVEMBER 1980 



51 



MAD SCIENTIST 




by Thomas Hamlin III 

Mad Scientist is an S-80 program 
requiring at least 16K. 

Have you ever felt the urge to go 
adventuring, but were foiled by a 
severe deficiency of giants, 
dragons, and mad scientists in your 
neighborhood? Well, here's your 
chance! 

It will be your task to enter the 
mad scientist's haunted house, 
rescue the fiend's beautiful 
daughter, and get out of the house 
before it's blown sky-high after 
about 225 turns. It won't be easy! 
The daughter's room cannot be 
entered until a certain event has 
occured. Secret passageways will 
bar your path. Monsters will pop 
up at inopportune moments and 
try to kill you, as is their custom. 
The directional compass in the 
lower corners of the screen won't 
show you everything! 

You get things accomplished in 
this game by use of one - or two - 
word keys such as "GO NORTH" 
and "SCORE." Finding these will 
be part of the fun. Let it be a 
challenge to you! 
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NUMERIC: 

BU 1 when fence on, else -1. 

DA 1 when have daughter, else 0. 

FL 2 before door passed, 1 just 

after, after door passed. 

F2 1 after fence goes on, else 0. 

GS 1 if ghost, if skeleton. 

LF 1 if no weapon, else 0. 

MV moves gone (score). 

NR prospective next room. 

OE 1 when door passed, else 0. 

OL room you're in for monster 

random reposition routine. 

PP Print position to start input. 

RM room you're in. 

SH ammo left. 

TIME multiplied by 100 for delay 

loop. 

WZ 1 when trap door just passed, 

else 0. 

X flashing "ENTER" timing, array 

initialization loop. 

XE cursor-blink timing loop. 

XP directions obvious (for 

compass) loop. 

Y array initialization loop. 

Z program wait loop. 



CURSOR BLINK AND LINE 
INPUT ROUTINE DISSECTION 

This routine has many 
advantages over the usual INPUT 
statement and is one you will 
probably wish to include in your 
own programs. The blinking cursor 
draws attention to the fact that 
input is required. Leading blanks, 
colons, commas and quotation 
marks may all be input. No 
question mark is automatically 
generated and there is no messy 
linefeed when you hit ENTER. 
Nurse! Hand me my scalpel! 

5000 Print the cursor at the 
assigned position plus the length of 
the string being input. If no key is 
hit for 40 iterations of the XE 
loop, print a blank over the cursor. 
If no key is hit for 40 more 
iterations, start over. 
5010 If the key hit was ENTER, 
print a blank where the cursor is 
and return to the main program. 
5020 If the key hit was backspace, 
start over if the entered string has 
no length; if it does, truncate the 
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rightmost character, print blanks 
where the string was, print the new 
string and start over. Note that this 
line is necessary as otherwise the 
string would look shorter, but 
would actually have a backspace 
added to it. 

5030 Add the key to the end of the 
input string, print the new string, 
and start over. 



Note also that the input string 
must be nulled before this routine 
is accessed, i.e., WH$="". 




VARIABLE TABLE 

ARRAY: 

A room connections in order, N, 
E, S, W, U, D. 

A$ room descriptions. 

AR rooms where special things 
happen - i.e., door shuts behind 
you. AR (Room #) = 1 for special 
rooms. 

GW$ monsters. 

M new direction accessible when 
secret passage found. 

MO new room accessible when 
secret passage found. 

MO$ moveable objects. 

SG$ killed-monster messages. 

ZE print positions for compass 
dots. 



STRING: 

COS, UD$ N, E, S, W, and U, D 

compasses, respectively. 

EF$, NM$, TD$ special messages. 

GM$, OD$ special commands. 

MO$ object to move. 

WAS direction to go. 

WHS command input - built from 

WYS. 

WPS, RUS game over-play again? 

inputs. 

WYS letter input. 



Lines 5-80 : Progran set-up S initialization of variables and 
printout of instructions! 

5 REM I HM) SCIENTIST i VERSION 2.7 APRIL 26, 1980 
COPYRIGHT (C> 1980 TOM HMUN 
SPRINGFIELD, VIRGINIA 

10 CLS:CLEARS08:[)EFINTA-r:RANDOH:Dim)«(61),HO(61),N(M),A«(M) 
,A(64,6),M^(61):TD$="A TRAP DOOR OPENS UP BENEATH YOUR FEET! 
YOU'RE FALLING DOHN A 
CHUTE!";FLAG=2!GH»="GET tMP";00$="OPEN DOOR"JAR(1)=1:AR(8)=1:AR( 

i2)=i:/«(ii>=i 

20 GH$(1)="THE GHOST"!GH*(0)="OU) BONY "JPRINT TAB(19)"H ADS 
CI ENT I ST 

":ZE(0)=709:ZE(l)=811!ZE(2)=965:ZE(3)=833:ZE(1)=765:ZE(5)=lfl2i:E 
F»="YOU DON'T mNT TO GO Tmi m- THERE'S AN ELECTRIFIED FENCE! 

II 

30 PRINT" n IS YOUR MISSION TO RESCUE Tff MAD SCIENHST'S BEAU 

TinJL 

DAUGHTER FROM HIS mJNTED MANSION. THERE ARE MANY HIDDEN 

PASSAGDMYS (OF COURSE!) HHICH MAY BE FOUND ALL AC) THE HOUSE. 

ALSO HIDDEN SOMEHHERE IN T>E HOUSE IS A NEAPON, MUCH MY PRO^C 

10 PRINT"USEFUL F YOU RUN INTO ONE OF THE RESIDENT MONSTERS, TH 

OUGH 

nCY MAY BE SUCCESSFULLY DEALT HITH IN OTHER mS. 'SCORE' 

TELLS YOU THE MOVES YOU'VE GONE- TfC REfttMNG CtttWCS YOU 

MUST DISCOVER FOR YOIRSELF! 

15 RN=15fl+RM)(150)5M(l)=6:M(ll)=6:M(15)=3:M(18)=3:MO(15)=19:MO$( 

15)="B00KCASE";NM»="NE\€R MIND, IT'S A ROW MAP OF TIMNSYLVWOA! 

":LF=i;GOSue600o:as:PRiNT"TfC daughter can't be reached til a c 

ERTAIN ROOM'S B£EN":M0«(1)="TABLE"!M0(1)=21 

50 PRINT-'ENTERED; KEEP THIS in mind DURING YOUR EXPLORATIONS. Y 

OU ARE 

GIVEN THE OBVIOUS DIRECHONS YOU CAN GO IN THE LONER CORNERS OF 

THE SCREEN. SHUT DOORS AW SECRET PASSAGEIMYS ARE NOT SHOW, 

6i mm"SO USE your MUinON F you think EIDCR might BE l€AR 

BY. 

HAVE A MICE TRF, BEWARE OF TtC GHOSTS, HATCH OUT FOR THE fttD 
SCIENHST, AM), ABOVE ALL, DO RESCUE THE BEAUTIFUL DAUGHTER! 
70 FORX=1T061:R£ADA$(X>JFORY=1TO«:RE/»A(X,Y):NEXTY,X{RM=51JMO«(1 
8)="PAMING":M0(18)=2fl:M0$(ll)="CARPET":M0(ll)=3i:C0»=" N"+CHR 
$(26)+STRING$(3,21)+"H + E"+CHM(26)+STRING»(3,21)+"S":AR(18)=i: 
AR(29)=1:AR(35)=1:AR(1)=1 

80 SG»(l)="ZZZZZAP! T(€ GHOST DISAPPEARS IN A CLOUD OF STEAM!": 
SG*(0)="ZZZORCH! THE SKELETON TURNS INTO A PILE OF ASHES!";G0SU 
B6000:CLS:UD»="U"+CHR$(26)+CHR«(21)+"+"+CHR$(26)+CH»(21)+"D":BU 

=i;rem m ^«ove has set-up; main program Baow 



line 100 J Main progran start, 
directions open. 



Print roort description, 



100 PRINTe829,J)*; :PRINr8771,C0*; :PRINTeO,A$(RM) ; :F0RXP=1T06JFA 
(RM,XP)>0THENPRINTeZE(XP-l),CHR»(110);:NEXTaSENEXT 

Lines 105-150.* Get connand. If fwvenent, print appropriate 
nessage if nove is illegal. If nunber of Moves is 
greater than a predeternined nunber, blow up house 
and terninate gane. 
105 PP=319:HH$="":PRINTe330,"t»ttT DO HE DO NOW? "NGOSUBSOOOrFL 
En$(HH«,3)="G0 "ANDLEN(HH»»3TlB«A$4aD«(HH$,1,l)ELSE260 
110 IF»W»="N"Tfe#«=A(RM,l)ELSEinW»="E"THENNR=A(RM,2)ELSEIFttt$= 
"S"THENf«=A(RM,3)EL^FHA»="W"THENNR=A(RM,1)ELSEIF)W»="U"THE»«= 
A(RM,5)ELSEIF»W$="D"THENNR=A(RM,6)ELSEPRINTe601,"SAY HfttT!?!?!"; 

:tde=i5;goto610 

120 (w=wfi:ifw>rwthencls!print"you should have mo^d faster! 

1\£ m SCIENnST SLIPPED (CTH 

ONE OF HIS POnONS AM) BLEW TNE HCLE HOUSE OFF THE MAP! 



'':iNPOT"HANT TO TRY AGflIN"}(#>$JIFLEFT$(HP$,l)="Y"TICNRUCLSEPRIN 

T.'END 

130 IFNR=-lTtCNPRINTe578,EF$;:TIME=15:G0T0618ELSEIFNR=-2THENPRIN 

18661, "YOU CAN'T GO THAT HAY!":TIIC=li:GOT0610aSEIFNR=-3TIO«tr 

NTre99,"THE DOOR IS SHUT.";:TIME=15:GOT0610 

110 IFM?=-1T1CNPRINTK98,"T1C DOOR IS L0a<ED!";:TIME=15:G0T061IC 

LSEIFfR=-5rHEfPRINTe586,"D0N'T BE CHICKEN! THE GATE IS TO TIC S 

OUTH!";JTIME=15:GOT0610 

150 FM»=-6THENPRIMTK96, "YOU'RE OUT OF YOUR «IM)!";.TDC=2«JG0r 

O610aSEIFRM)(30 )=30TlCNPRINTe330 ,Cff»(31 ) J .•GOT02500ELSEIFRH=1TH 

DW(37,6)=27 

160 FNR=1/WDOA=lANDeU=-lTHB«(1,l)=35:RM=NR:CLS:GOT0ieflaSEIFRM 

=17ANDRND(10)<7THENCLS:GOT0100 

Line 190 : Update roon nunber if changed. If roon not special, 
branch back to line 100. If cowtand was not "GO...", 
continue. 

190 rm=nr:cls:far(RM)=othenioo 

Lines 200-210! Special roons! end gane, nove door, electrify 
fence, etc. 

200 IFRM=12AM)LF=lTtCNPRINTe711, "THERE'S A LASER GUN ON THE TABL 
E IN FRONT OF YOU.";:GOT0100ELSEIFRH=12THE)MR(RM)=0:CLS:GOT0100E 
LSEIFRM=1M)DA=lW«)eU=lTtOPRINTe725,"THE FENCE IS STILL 0N!";:G 
OTOIOO 

210 IFRM=11THENPRINTA$(RM):FORX=lTO5fl0fl:NEXT:NR=lJGOTO190 
220 IFRH=8ANDFLAG=lT»€NPRINTeO,A«(RM);:PRINTre92,"THE DOOR SU«S 
SHUT BEHIM) YOU!";:FLAG=0:TDt=30:GOTO610 
225 IFRM=1ANDF2=0THEM>RINT80,A«(RM);jPRINTe576,"THE GATE CQCKS 
SHUT BEHDC YOU, MO YOU »€AR A SOR HUH AS THE 

FENCE IS ELECTRIFIED !";:bu=i:time=15:f2=i:goto6ioelseifrm=i«ir 

=2T}CNCLS:GOT0100ELSEIFRM=€THENCLS:GOT0100 

230 IFRM=35THENPRINTA«(RM):PRINT"n TOOK YOU"MV"M»€S. 

m(J TO TRY AGAIN" ;:D#'UTRU$ELSE250 

210 IFLEn*(RU$,l)="Y"TfCNRUNELS£PRINTSTRING$(1,26)JEND 

Lines 2SO-100i Connands other than novenent - check 

legality according to flags, current roon location, 
etc. and enact connand if ok', set flags, change roon, 
etc., else print appropriate nessage. 

250 REM COMMNDS OTHER THAN "GO *" 

260 IFRM=18AM)NH»="FLIP SHnCH"Tie«J=-BU:GOT01000 

270 FRH=29AM)OA=0AM)M»="GET DAUGHTER"THENPRINTe589,"0K, YOU'VE 

GOT TfC daughter; LCT'S GO!";:TIIC=20;DA=1:GOT06UELSEIFR»=29AN 
DNH»="GET DAUGHTER"THENPRINT8592,"Y0U'«€ tU&iyf GOT >CR, STUPID 

!";;tm=2o:goto61o 

280 IFL£n$(HH»,5)="H0VE "THENIFJ10«(R«)=""TlCNPRINTe5B«,"THER£'S 
NOTHING HERE YOU CAN MOVE. TRY SOMETHING ELSE.";TBC=15:G0T061 

o:rem n see f moveable object in room 

290 IFLEFT»(I«,1)="NW€"ANDI£N(HH*)<6T}CNPRINT86«0,"MOVE HHAT?? 
!?! ! ":TIME=15:G0T0610ELSEFlfFT»(HH$,1)O"Ma€"TfCK320 
300 M0$=RIGHT$(HH$,LEN(H»)-5);iFM0«=M0$(RM)THENA(RH,M(RM))=«0(R 
M);PRINTe(57-LEN(M0$))/2+118,M0»" M0ra.";!PRINTe(26-l£N(MD»))/2 
+512,"Tt€ "ND$" UAS COtRING A SECRET PASSAGEWAY! "I :TIME=2fl:GOT0 
610 

310 PRINTe(51-LEN(M0$))/2+576,"Hf«T "M0$"?!?!?";:nit=15!G0T061l 
320 IFLEn«(HH»,5)="SC0RE"T»CNPRINT8658, "YOU'VE GONE"MV"MOVES SO 
FAR.";;TIME=20;GOTO6I0aSEFHH»="GET LAS£R"AM)RM=12AMX/=1T1CM. 
F=0;PRINTre31,"YOU'(€ GOT THE LASER"; ;shots=5:time=2o;goto61o 
330 FHH*="GET LASER"ANDLF=0THENPRINTe591,"YOU'\€ (IREADY GOT H 
, STUPID!";;TIME=15!GOT0610 

335 FSH>0ANDL£N(HH»)>5ANDLEn$(W$,5)="SHOOT"AM)LF=0THEMiaNTe6 
03,"ZZZZZATni";!SH=SH-i:PRINTe661,"YOU f«H€"SH"SHOTS L£FT.";;TI 
ME=25:GOT06iaaSEFLEFT»(MH«,5)="SHOOT"ANDLF=OWI)SHOTS>OT}€)fiaN 
T8602,"SHOOT mAT?";:TIME=15!GOTO610 
310 IFlfFT»(l»»,S)="SHOOT"AM)LF=0THENPRINTre98, "YOU'RE OUT OF AM 
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continued on next page 5J 



MO!";:TI«E=15:GOTO610e.SEIFLEFT$(m»,5)="SHOOT"THEM'RINTe589,"YO 
U DON'T HAVE ANYTHING TO SHOOT HITH!";:TIfE=15!GOTO610ELS£IFWH*= 
GM$AM)RM=16THE»>RINTe586,.»«; JT»E=2():G0T061() 
315 FDA=0ANDWf=29THEI«aNTK92,"TtC DAUGHTER IS HERE!";:GOT0100 
ELSEIFRH=29ANDOA=1THENCLS:GOT0100ELSEIFLEFT»(MH*,3)="RUN"THENPRI 
Nre5M,"(#MT IS TfCRE TO RUN FRO«?l";:TIME=15:GOTft510 
350 IFOE=lANOOA=OANDRH=1THENPRINTeO,A$(RM)!:PRINTe576,"HEY! YOU 
(UTERALLYI) CAN'T L£AVE WITHOUT TfC GIRL! GO BACK!";JTIME=30: 
GOTO610 
360 IFRH=38ANDWH$=OD*THENA(38,3)=8;FLAG=i:PRINTe601,"DO0R OPENED 

.":TiME=i5:oE=i:GOTa5ifl 

370 IFRM=8AND(HH*=0D$0RMH«="UNLXK DOOR" )THENPRINTK98, "THE DOOR 
WON'T OPEN!";!TIfE=20:GOT0610ELSEIFR«=38ANDWH$="UNLOCK DOOR"TtC 

NPRiNTMoo/'n ISN'T LOCKED. ";:time=i5:goto«io 

390 IFHH$="PULL RING"ANDRM=22TfCNPRIMTre76,TD*;:FORZ=lTO10fl0:fB( 
T:R«=18:WZ=1!CLS;GOT01000ELSEIFW$="FLIP SHITCH"THENPRINTW02,"H 
HAT SHnCH?";JTIME=15:GOTO610aSEIFHH»="PULL RING"THENPRINTM03, 
•'\tm RING?";;Tl}t=15!GOTO«10 

100 FLEn$(l#«,3)="GET"THENPRINTe576+(16-LEN(HH$))/2,"I DON'T S 
EE A";RIGHT*(HH*,LEN(HH$)-3),*".'"M*TIME=15!GOTO610aSEPRINTre99," 
I DON'T KNOW HOWI";;TIME=15:GOT0610 

Lines 110-600! Roon data! description) roons reached by going 
N, Ef St H, \i, D respectively) Negative roons will 
generate error nessagesi 

110 REM DATA- DESCRPHON, N E S W U D 

(FOR NEGAHVES, SEE LINES 120-152) xaaa 

120 DATA"YOU'RE LYING ON A T(fiLE. COLD GREEN FLAMES DANCE AROUN 
D Y0U.",-2,-2,-2,-2,-2,-2,"Y0U'RE SURROUNDED BY (ENBANE, BELLADO 
(#(A, AND ACONITE. THIS 
MUST BE THE HERB GAR0EN.",-l,3,-2,-l,-2,-2 
130 DATA"THIS IS THE FRONT Um. TfC HINDOHS OF TIC HOUSE APPEA 
R TO BE 

HATCHING Y0U.",-l,1,-2,2,-2,-2,"Y0U'RE ON A LONG, COBBLED WJfXH 
AY.",-1.5,38,3,-2,-2 

HO DATA"THIS IS A GRAVEYW®. TJfRE ARE TOMBSTOCS LYING ABOUT, 
AND IN 

THE MIDDLE OF THE PLOT TfCRE IS A rWUS0LEUM.",-l,-l,-Z,1.-2,-2 
150 DATA"THE LMNC ROOM. A HUMAN SKULL miES WER TIE FIREPLAC 
E, WHICH 

IS TfC ONLY SOURCE OF ILLUMDttHON IN THE R00M.",-2,7,ll,-2,-2,- 
2,"WEKSnfT£D CHAIRS ARE SCATTERED AROUM) THE ROOM. THIS MUST 
BE 

THE PAfiL0R.",-2,8,-2,6,-2,-2 

160 DATA"YOU'RE INSIDE THE DO0R>MY.",-1,9,-2,7,-2,-2, "YOU'RE AT 
T}€ BOnOM OF A LONG STAIRCASE.",-2,-2,-2,8,lfl,-2,"Y0U'RE ON A L 
AIDING BETICEN FL00RS.",-2,-2,-2,-2,22,9 
170 DATA"THERE'S A BEAUTIFUL PERSIAN CARPET COVERING THE FLOOR A 
M> A 

LARGE TAPESTRY ON THE WEST HALL.",6,12,15,-2,-2,-2,"THE >CST SID 
E OF AN ENORMOUS LABORATORY. BEAKERS OF BUBBLY, 
ERRR, BUBBLING BEM€RS, AND RETORTS SURROUND YOU." 
190 DATA-2,13,-2,ll,-2,-2,"T« MIDOLE OF THE LABORATORY. A HUGE 

coNTRAPnoN wnn blinking 

LIGHTS AND WHIRRING TAPE REELS T<«ES UP AN ENTIRE HALL. I THINK 

n'S SOtt KIND OF SOPHISnCATED HI-FI SYSTEM." 

500 DATA-2,11,17,12,-Z,-2,"0H OHI TfC tMD SCIENTIST IS HERE! (S 

ERVES YOU RIGHT FOR 

SNOOPING AROUND IN HIS LABORATORY!) 

HE ZAPS YOU AND CARRIES YOU 0F!",-2,-2,-2,13,-2,-2 

510 DATA"THERE'S A BOOKCASE AT THE SOUTH END OF THE R00M.",ll,-2 

,-2,-2,50, -2,"AHA! THERE'S A MAP IN THE MIDDLE OF THE R00M!",-2 

,17,-2,-2,-2,-2 

520 DATA"THE FLOOR IS COVERED WITH SLIPPERY GOO! U mi BE mS) 

TO GET 
OUT OF HERE!",13,-2,-2,16,-2,-2,"THERE'S A LARGE PAINTING ON THE 

SOUTH m.L, NEXT TO THE 



PAINTING IS A SWnCH WITH A L.E.D. READOUT ABOVE IT.",-2,-2,-2,- 

2,-2,-2 

521 DATA"YOU'RE IN A LONG, DARK HALLtWY.", 15,12,-2,-2,-2,-2 

530 DATA"DOHN A DARK HALL.",-2,-2,-2,13,-2,-2,"Y0U'RE ON A CREAK 

Y BALCONY OVERLOOKING THE GRMtYARD. DANK 

GHOST-LIKE MISTS SWIRL AROUND THE GRAVEST»CS.",21,-2,-2,61,-2,- 

2 

510 DATA"YOU'RE AT THE TOP OF A LONG STAIRCASE. A BRONZE RING I 

S 

E^B£DOED IN THE FLOOR HEXJ TO YOUR FEH.", -2,-2,23,30, -2,10,"THE 

FOOT OF A STAIRWAY.",22,-2,-2,-2,36,-2,"THIS IS THE BELFRY. A 
Cm>n OF BATS CLINGS TO THE CEILING." 
550 DATA36,-2,21,25,-2,-2,"A PUOfSi ON THE NORTH WALL PROCLAIMS 

THIS TO BE 'TfC BAT-ROOM'. ",11,21,-2,26,-2,-2, "MOON ROOM. FLAS 
KING LETTERS SPaL 'BEAUTIFUL DAUGHTER fCAR' ! ",37,25,-2,61, -2,- 
2,"THE FOOT OF A STAIRCASE. ",29, -2, -2, 19, 37, -2 
560 DATA"THE COMPUTER ROOM. AMONG OTHERS THINGS, THIS ROOM CONT 
AINS A 

18K RAM LEVEL U TRS-80 HHH A LINE PRINTER AND JOYSHCKS AM) 
TWO DISK DRIVES AM) A LIGHT PEN AND COLOR GRAPHICS MO... 
ALL RIGHT, STOP DROOLING! LfT'S MOVE ALONG!" 
570 DATA30,-2,11,-2,-2,-2,"A BEDROOM.",-2,30,27,52,-2,-2,"SUN RO 
0M.",-2,22,28,-2,-2,-2,"A (HITHERTO-SECRET) P ASSAGEiWY.", 33,-2, - 
2,-2,11, -2, "A DARK R00M.",-2,39,-2,33,-2,-2,"A W«K R00M.",-2,32 
,31,-2,-2,-2 

580 DATA"THIS LOOKS LIKE THE END OF THE PASSAGEWAY. A FAINT LIG 
HT 

FILTERS IN FROM ABOVE.",-2,-2,10,-2.5,-2,"YOU'^ (W)E IT! NICE 
JOB! ",-2,-2,-2,-2,-2,-2, "YOU'RE AT THE HEAD OF A STAIRWAY. ",-2,- 
2,21,-2,-2,23,"Y0U'RE AT THE TOP OF THE STAIRS." 

590 DATA-2,-2,26,-2,-2,-2,"Y0U'RE AT THE ENTWWCE.",1,-2,-3,-2,- 
2,-2,"W«K ROOM. YOU STU«LE OVER AN OBJECT IN DC MIDOLE OF TH 
E 

ROOM.", -2,10, -2,32,-2,-2, "DARK ROOM. H tf?V«S SaCHTLY LOHTE 
R TO THE N0RTH.",31.-2,-2.39.-'--' 

591 DATA"THE ROOM REEKS OF INCENSE. THERE'S A PENTAClf ENGRAVED 

ON nc 

aOOR, AND STRANGE FIGURES ARE PAINTED ON THE WALLS. ",-2,-2,25,- 
2,-2,-2,"THE BLOODSHOT EYES OF A PAINTING ON THE SOUTH HWl SEEM 
TO BE 
FOaOWING YOU.", -2,13,-2,19,57,-2 

592 DATA"A BLACK CAT WALKS SEDATaY ACROSS YOUR PATH.", -2,20,-2, 
12,-2,-2,"SUPPLY ROOM. JARS OF CHEMICALS, GLASS AND RUBBER TUBI 
NG, BOXES 

OF RESISTORS, CANS OF TOADSTOOL SOUP AND BALES OF BAT FUR LINE 
THE WAaS.",28,-2,15,-2,-2,-2 

593 DATA"SUPPLY ROOM. BLANK DISKETTES, VARIOUS TOOLS, MB A WOL 
F HIDE 

ADORN THE WALLS. PICKLED PEOPLE PIECES tfS IN JARS BY THE 
COWCR.", 11,55,-2,16,-2, -2,"THIS ROOM IS FULL OF CLOCKS AND mc 
HES OF ALL KINDS- ALL 
RUNNING BACKMWDS." 

595 DATA-2,15,-2,17,-2,-2,"STRANGE TICKING NOISES CAN BE HEARD T 
THE EAST.",18,16,56,-2,-2,-2,"TtCRE'S A HOLE IN THE SOUTrtCST 
CORNER OF THE FLOOR!", 19,53,17,-2,-2,50, "MUFFLED SNORING NOISES 
ARE COMING FROM THE EAST" 

600 DATA-2,-2,18,-2,-2,-2,"Y0U'RE PRECARIOUSLY PEROCD ATOP A 60 
0KCASE.",-2,-2,-2,-2,18,15, "YOU'RE AT THE GATE OF THE H0USE.",-5 
,-5,1,-5,-2,-2 

Line 610: Tine delay loop; change TDCHOO to TDCiXX (where 
XX is 3 rpiifiber) to alter length of pauses. 

610 forz=itotimeiioo:next;cls:gotoioo 

Lines 2500-2560; Monster attack ro^itine. Choose nonster, get 
coflfwnd. If coMnand bad, end gawe. Otherwise, randoM- 
ly select a new roon, change nothing, or decrement an- 
mjition count as appropriate to the cowand and roon 
yoi.i're in. Return to nain progran. 



S^ 
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25D0 PKmmSi," "Crt«(170)STRING$(2,183)CHR$(M9)" "CHR»(26)STR 
ING»(6,21)CH«(160)CHR*(176)CHR*(138)CHR$(133)CHR$(160)CHR$(176) 
CHR$(26)STRING«(6,21)CHR<(136)CHR*(H0)STRING$(2,131)CHR»(137)CH 
R$(140):PRINTe32fl,"UHOHI t\ "', 

2510 ifrm)(2)=ithengs=i:print"ghost";elseprimt"skeleton";:rem 

11 monster routine 

2520 hh$="":print" just popped out in front of youi 

HWT ARE YOU GOING TO DO? "j:pp=iio;gosub5BOo:f((hh»="shoot gho 

ST"tf«)GS=l)OR(HH$="SHOOT SKELETON"ANDGS=0))ANDLF=flANDSHOTS<lT}CN 

PRINTM70, "YOU'RE OUT OF WfMO! "J :>#«="" 

2530 in£FT*(»«,3)="RUN"THEf#>RINTre76,"GO0O WORK! YOU OUTRAN " 

G«$(GS)"I (UNFORTUNATELY, 

YOU GOT LOST IN THE F'ROCESS!)"!:TIME=25:GS=0:GOT02550 

2510 IF((HH$="SHOOT GHOST"AM)GS=1)OR(HH$="SHOOT SKEL£T0N"WOGS=fl 

) )ANDLF=0THENSH=SH-1 :PRINTe583,SG*(GS) } :PRINTe661, "YOU f«VE"SH"S 

HOTS LEn."J.'GS=0:TIME=30:GOTO610ELSEPRINTK87,G«*(GS)" GOT YOUI 

BETTER LUCK NEXT TIME! 
".'END 

2550 F(RM<6ANDRH>l)0RR«=380RRM=51TtCNPRINTe61fl,CH»(31);:GOTO61 
flELSEOL=RM 

2560 Rtt=RND(61):iFWN)LOR(RM>lAM)RM<6)ORRM=350RR«=29GRRH=120RRH= 
1BORRM=51THEN2560ELSE61 

Lines 3220-3260! Room DATA continued fron lines 110-600. 
3220 DATA"A BATHfflOM. A LONE BAT HANGS FROM TfC CURTAIN ROO.",- 
2,29,-2,-3,-2,-2,"THE 'GAf€ ROOM'. THE ROOM'S LIBEWUY STREWN 
WITH IMPLEMENTS 

RANGING FROM THUMBSCREMS TO AN 'IRON MAIDEN'. ",-2,-2,-2,18,-2,-2 
3230 DATA"A POOL (I) OF BRACKISH GREEN HATER COVERS MOST OF THE 
ROOM. 

A PAIR OF BEADY EYES AND A BLUNT SNOUT tflE VISIBLE JUST ABOVE 
HATER.", -6,-2,55,-2,-2,-6, "THE ROOM SMELLS STR/«GaY SHWPY.",51 
,-2,59,15,-2,-2 
3210 OATA"THE aOOR, HALLS, AND CEILING OF THIS ROOM ARE COVERED 

HITH 
MIRR0RS.",17,57,-2,-2,-2,-2,"SEVERAL BOARDS LIE AROUND A U«GE H 



OLE IN THE FLOOR. ",-2,58,-2,56,-2,12, "STAIRS COD. UP FROM T»C CO 
RNER OF THE R00M.",-2,59,-2,57,61,-2 

3250 DATA"0OD, MUDDY TRACKS LEAD N0RTH.",55,-2,-2,58,-2,-2,"Tff 
YWffl IS VISIBLE F(« BELOW THROUGH THE NORTH WIND0H.",-2,-2,61,-2 
,-2,-2,"A GIGGLING HEAD APPEARS IN THE CENTER OF THE ROOM AM) SL 
OW.Y 

F(OES OUT AS YOU HATCH.",60,26,62,-2,-2,-2 
3260 DATA"A GOAT SKULL IS NAILED WER THE NORTH D00R.",61,63,-2, 
-2,-2,-2,"THE FLOOR IS COVERED BY A PEOPLE-HAIR RUG.",-2,61,-2,6 
2,-2,-2,"A SPIRAL STAIRCASE MINDS DOWN INTO THE H0USE.",-2,21,-2 
,63,-2,58 

Lines 1000-1010! Fence readout update for trap door roo«. 
1000 IFBU>0THE?«?INTe530,"THE RENXUT SAYS, 'FENCE ON' "JELSEIFB 
U<OneffRINT053O,"THE READOUT SAYS, 'FENCE OFF'"', 
1010 PRINTe319,CHR$(203);:iFHZ=lTte#C=0!GOTO100aSE100 
Lines 5000-5030! Cwsor-flash arid line inpijt routine. See 
detailed analysis. 

5000 PRINTePP+LEN(l#«),CHR$(95);!FORXE=lTO10:HY$=INKEY$!IFHY$="" 
TtCNNEXT!PRINTePP+LEN(HH*)," "J!FORXE=1T010!WY»=IM<EY$:IFWY*=""T 
tCNNEXT!GOT05000!REf1 
H FLASHING CURSOR/LINE INPUT FOR Df>UT ROUTINE (5000-5030) 

5010 IFHY$=CHR$(13)THENPRINTePP+L£N(HH*)," "JIRETLRN 

5020 ffASC(HY$)=8ANDLEN(WH*)>0THEW«»=LEFT$(HH*,L£N(tW)-l):PRIN 

TePP,STRING$(LEN(HH$)+2,32) I !PRINTePP,HH$; !GOTO5000ELSEIFASC(HY$ 

)=8THEN5000 

5030 WH$=WH$+«Y»:PRINTepp,WH$;:GOTO5000 

line 6000! Flashing "ENTER" for instructions paging. 

6000 PRINTe980,"Hn =ENTER= TO CONTINUE"; J F0RX=1T085:IFDKEY»=CH 
R«(13)TfCNRETURNELSEfCXT!PRINTe981,CHR»(199);:F0RX=lT085:iFIM<EY 
$=CH»(13)THENRETURNELa:NEXT:GOTO6000!REM 

11 FLASHING "ENTER" FOR INSTRUCHONS PAGING 



® 



STBD- 

smarr 

janiiBL. 



ST80 has a smart terminal 
package for you! 

All four programs include the ability to use an unmodified TRS-80 keyboard to produce RUB. ESC, and 
other control characters for time sharing, software control of the RS-232-C board, repeat key. bell, software 
support for the three most common upper/lower case hardware conversion, and line printer output. 



ST80* UC 



Preset parity, word length, and baud rate (regardless of switch settings on the RS-232-C board) lor THE SOURCE, 
MICRONET, and FORUM 80, automatic testing ol the RS-232-C board, and even spooling of prepared messages on tape 
directly into FORUM 80 using a basic program supplied as a line listing. 4K Level II cassette, $24.95 

ST80* 

Reprogram your R5-232-C board from the keyboard, and run at different baud rates. Note: does not have auto testing of 
the RS-232-C or tape spooling. 4K Level II cassette $49.95 



ST80*D 



Connection lime clock, option of user-created translation tables for keyboard, gathering and pre-formatting data lo be 
sent directly from disk to host computer, spooling of received files to disk or printer, editingof received files, and auto logon. 
Use it with VTOS 3.1, and get device-driven I/O, job logging, and chaining. 32K disk programs, $79.95 



$T80*III 



ST-80 D with extra utility programs. 32K disk program, $150.00 



The Sahw^ate Exchange 

6 South Si.. Milford, NH 03055 
ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 



• A trademark n1 Lance Mickius. Inc 
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HI- 



ON-LINE SYSTEMS 

RES ADVENTURES 




For 48K Apple II and Apple plus 

MACHINE LANGUAGE 



^ 



BOTH 

ADVENTURES 
CAN BE SAVED! 



#1 Mystery House 



$24.95 on disk 



You are transported to the front lawn of a large, old Victorian 
house. Upon entering the house you find yourself enmeshed in 
murder, mystery, and intrigue from which you cannot escape 
until you solve the puzzles. One by one your friends are being 
murdered and it is up to you to find out who the killer is and 
why he is bent on mahyhem. But watch out, for the killer just 
might find you first! As you explore the house you will 
encounter puzzles to solve and hazards which must be 
overcome. The secret passageway might lead you to the 
answer. 

'Over 100 Hi-Res pictures for playing and watching your 
adventure! 

*AII rooms in the house appear in full Hi-Res graphics, 
complete with objects you can carry, throw, drop, or ??? 

"Speak to the computer in plain English - over 300 words! 




#2 The Wizard and the Princess 



$32.95 on disk 



A princess in distress! Only you can rescue her from the clutches of an evil wizard and save 
your life. But to find the wizard and his castle, you must first cross deserts, mountains and 
oceans to reach an island, encountering strange beasts along the way. You will have to learn 
magic, navigate at sea, and search for buried treasure. This epic game should provide months 
of pleasure. 

"Hundreds of Hi-Res pictures! 

"Full 21 color Hi-Res graphics! 

"By far the most ambitious graphics game ever written for the Apple. 



The SaH^n^re Exchange 

6 South St., Milford, NH 03055 (603) 673-5144 

ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 
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CARDS 




by John T. Philips 

Cards is a subroutine for 16K 
S-80S. 



Everybody plays cards and 
sometimes it seems that everyone is 
writing programs that play cards. 
No matter how sophisticated the 
programs are, however, all the user 
ever sees are the graphics on the 
screen and all he ever remembers is 
how specific he had to be when 
entering information (such as his 
choice of cards) into the computer. 

This program provides two 
subroutines that can be 
incorporated into your own 
programs. The first subroutine will 
print the cards of the deck 
(including face cards) anywhere on 
the screen. Good-bye to rectangles 
labled "JH" that are supposed to 
represent the Jack of Hearts!! The 
second subroutine will accept a 
wide variety of input to represent 
the names of the cards. For 
example, if the card to be entered 
is the "six of clubs," the computer 
will accept "six of clubs," 
"sixofclubs," "sixclubs," "6 of 
clubs," "6ofclubs," "6 clubs," 
"6C," "6ofC," "six of 
C,". . . almost anything a 
reasonable person might use to 
represent the six of clubs. The 
same wide variety of input is 
accepted for all the other cards of 
the deck. 

The program is divided into four 
parts: 

Part 1: Lines 10-90 provide the 
strings to be packed with 
graphics characters. Lines 
60000-65000 have the 
graphics characters in 
DATA statements and the 
POKE routines to pack the 
strings. Once the super 
graphics strings Ml$-M7$ 
and Pl$-P8$ have been 
generated, Unes 
60000-65000 are deleted. 
The graphics strings can be 
SAVED on tape or 
SAVED on disk, but 
cannot be edited! 
Part 2: Lines 100-133 comprise the 
subroutine (GOSUBIOO) 
which prints a super- 
graphics card on the 



screen. The routine 

requires values for 

S- Suit value 1-4 (hearts 

1, spades 2, diamonds 

3, clubs 4) 
V- Card value 1-13 (ace 

1, jack 11, king 13) 
X- The point on the 

screen to "print®" 
and used the super- 
graphics strings generated 
by Part 1 . Each card is 11 
characters wide and eight 
lines tall, so ten cards can 
be displayed on the screen 
at one time (at X = 0, 13, 
26, 39, 52, 512, 525, 538, 
551, and 564). The routine 
also returns 

V$ card name (ace-king) 
S$ suit name (heart-clubs) 
so if the routine is passed 
the values S = 2, V=12, 
then PRINT "the"; V$; 
"of"; S$ will print "the 
queen of spades." 

Part 3: Lines 200-374 comprise the 
subroutine (GOSUB200) 
which inputs A$ - any 



reasonable name for a card 
the user wishes to enter 
into the computer- and 
outputs: 

V$-card name (ace-king) 
S$ suit name (hearts-clubs) 
V-card value 1-13 
S-suit value 1-4 
The V and S values can be 
passed to subroutine 100 
to print the card at X! 
Part 4: Consists of 2 routines to 
exercise the sub-routines. 
Lines 1000-1010 call sub 
1(X) and print all 52 cards - 
back and front- on the 
screen one after the other. 
Lines 2000-2030 call sub 
2(X) and prompt the user 
for the name of a card, 
and then print the full 
name and suit on the 
screen as input "AS" 
output "the ace of 
spades." 

These subroutines should make 
your own card-playing programs 
more fun to watch and easier for 
the user. 



1 ' KnnxnniiixKnixxiiiixxKinnHHiunainxxni 
I "CARDS" » 

5 ' X X 

1 TWO SUBROUTINES TO BE ADDED TO x 

X YOUR CARD PLAYING PROGRAMS — x 

X BY JOHN T. PHmiPP x 

7 ' COPYRIGHT APRIL, 1980 JOHN T. PHILLPF' 

10 M1»="0000000000 THERE SHOULD BE 172 CHARACTERS IN THIS ST 

RING OOOOOOOOOOOOOODOOOOOOODDOOOOOOOOOODOOOOOOOOOOOOOOOOOOOD 

OOOOODOOOOOOOODDOOOOODOODOOOODOODOOOOODOOOOOOOOOOOOO" 

20 M2»="0000000000 THERE SHOULD BE 172 CHARACTERS IN THIS ST 

RING OODOOODOOOOOOOOOOOOOOOODOOOOOOOOOOOOOODOOOOOOOOOOOOOOOO 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOODOOOOOOOOOODOOOOOOOOOO" 

30 M3$="0000000000 THERE SHOULD B£ 172 Ctt«ACTERS IN THIS ST 

RING 0000000000000000000000000000000000000000000000000000000 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOODOOOO" 

n M$="OOOOOOOflOO there should be 172 CmRACTERS IN THIS ST 

RING 0000000000000000000000000000000000000000000000000000000 



50 M5»="0000000000 THERE SHOULD BE 172 CHARACTERS IN THIS ST 

RING 0000000000000000000000000000000000000000000000000000000 

0000000000000000000009000000000000000000000000000000" 

60 h6$="0000000000 THERE SHOULD BE 70 CHARACTERS IN THIS STRI 

NG 0000000" 

65 M7»="0000000000 THERE SHOULD E£ 101 CHARACTERS IN THIS ST 

RING 000000000000000000000000000000000000000" 

70 Pl$="000000000":P2$="00000000"!F'3$="000000000";p't$="000000000 

0" 

80 F'5»="OOOOOO0OO0":P6$="0OO0OO0O":P7»="0OOOO0O0flO"!P8$="OOO0OOO 

000" 

continued on next page 
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continued from previous page 

90 GOTO (SfldOO ' X JUMP' TO GRAFWC STRING PACfaWG ROUTINES 
DELETE AFTER STRINGS PACKED « 

99 GOTO mt ' I DELETE AFTER SUB-ROUTINE TESTED x 

100 ' X CARD F'RINTING SUEi-RWIINE x 

infdt: 

V - CARD value: ace 1, JACK 11, QUEEN 12, KING 13 

S - SUIT value: hearts 1, SPADES 2, DIAMONDS 3, CLUES 1 

x - point on screen to 'print at' 

returns: 

v$ - na^e: ace - king 

S$ - suit: t€ARTS - CLUBS 

110 IFS=lTHENS»="HEARTS";p$=F'l$:P0$=F'5*:aSEFS=2THENS$="SPADES" 

:P$=P2$:P0»=P6»:ELSEIFS=3T^£NS$="DIAMONDS":P$=P3$:P0♦=P7$:ELSEIF 

S=tTHENS$="CLl*S" : P$=f i* : P0$=F'8$ 

115 PRINTeX,M2$;:PRINTeX,M6$; 

120 0NVG0T0121, 122, 123, m,125,126,127,128,129,130, 131, 132,133 

121 V»="ACE":iFS=2THENPRINT@X+65,M7«;:RtTl«N:ELSEPRINT0X+65,"A"J 
;PK[NTI?X+196,F'*;:PRINTeX+393,"A";:R£TURN 

122 V$="TW0":pRINTI?X+65,"2";:PRINTeX+68,P$;:PRINTI?X+321,P»;:PRIN 
TeX+393, "2";: RETURN 

123 v$="THREE":pRiNTex+65,"3"; ;Fi<iNTex+68,p*; :print(?x+196,p$; :pr 

INTeX+321,P$;:PRINT(?X+393,"3";;RETURN 

121 V$="FOUR":PRINT0X+65,P$;:PRINT0X+71,P$;:PRINTeX+321,P$;:F'RIN 

Tex+327,F'»; :print0x+393, "1" ; :return 

125 v*="FivE";pRiNTex+65,p*; :pRiNTex+7i ,pt; :print@x+i96,p$; :f'Rin 

T0X+321 ,F-*; :F'RINT0X+327,P$; :PRINTeX+393, "5" ; :R'ETURN 

126 v$="six":f'RINTI?x+(45,p*; :printi?x+71,p$; :print0x+193,F'»; :prikt, 
?x+199,F'*,* ;pRiNTex+32i ,p$; :printi»x+327,p$; :pRiNTex+393, "6"; :retu 
rn 

127 v*="seven":f'Rint(?x+65,p$; :pRiNTex+7i (F'*; :pRiNTex+i93,p$; :pri 
NTex+i96,Fii :FRiNTex+i99,p$; :print(?x+321,p$; :pRiNTex+327,p$; :pri 

NTeX+393,"7";;RETURN 

128 v»="eight":print0x+65,p$; ;pRiNTi?x+68,p*; :pRiNTex+7i,p$; :f'RIN 
Tex+i93,F'$; :print0x+196,p$; :pRiNTex+i99,p»; :pRiNTex+32i ,p$; :fi<in 
Tex+32i,pt; ;pRiNT0X+327,p»; :pRiNTex+393, "8" ; :return 

129 v*="nine" :pRiNTex+65,F'<; :print@x+68,F'»; :F'RiNTex+7i ,F'$; :print 
ex+i93,p*; :print0x+196,p»; :print0x+199,p»; :pRiNTex+32i,p*; :print 

eX+321,P*;:PRINTeX+327,F'$;:F'RINTeX+393,"9";:RETURN 

130 v$="ten" : FKiNiex+iB, p* ; : prmpx+as , v$ ; : print0x+7i , p$ ; : printp 
x+i93,p$; :PRiNTex+i9(S,F'*; :print0x+i99,F'»; :pRiNTex+32i ,p$; :F'RiNTe 
x+388 , v$ ; : PRiNTex+327 , p* ; : return 

131 V»="JACK":PRINT0X,M3*;:PRINTeX+65,P*;:PRINTeX+327,PI)$;:RETUR 
N 

132 v»="QUEEN":pRiNT0x,fH$; :pRiNTex+65,p*; :print0x+327,po$; :retu 

RN 

133 vt="KiNG" ;pRiNTex,M5$; :FK[NTex+65,p»; :pRiNTex+327,Po*; :retur 

N 

200 ' X SUB-FlOUHNE TO ACCEF'T ALMOST ANY CARD x 

INFtJT: 

A$ - YOU< ANSWER TO "TYFt IN ANY CARD" 

RETUR^NS; 

V$ - VALUE OF THE CARD: ACE - KING 

s$ - suit; hearts - clubs 

V - value: 1 - 13 
s - suit: 1 - 1 

220 Fl»="ACTWTHF0FISISEEINnEJAQUfa":F2$="A2315A7891JQK":F3»="TS 

Esoses" :f«="hsdc" : v$="" :s$="" 

230 Y*=Fl$:0=2:G0SUe300:iFV*O""THEN250 

210 Y»=F2»:O=i:GOSUEi300:iFV*<>""THEN250ELSECLS:F'RINTM18,"I DON' 

T UNDERSTAND THE VALUE OF ";CHR$(31);A$;CHR$(31):F'RINT"TRY SOMET 

HiNG LIKE - SIX OF CLUES - OR - 6C":fori=ito2ooo;nexti:a*="":ret 

URN 

250 Y»=F3$ : 0=2 : GOSUE;350 : IFS»<>" "THEN275 

16f. Y»=F1$:O=1:GOSUE35O:IFS»C""THEN275ELSECLS:PRINT0118,"I DON' 

T um)erstand the suit of ";chr*(31);a$;chr»(31):print"try someth 

ING LIKE - six OF aUBS - OR - 6C":FORI=lT020flO:NEXTi:A$="":RETU 

RN 

275 CLS:F1<INTei18,"Y0UR CARD HAS THE ";V»;" OF ";S$;", RIGHT";:i 



NFVrXX»:FLEFT»(XX$,l)="N"THENF'RINT"ON£ OF US HAS MADE A MISTAKE 

. TRY AGAIN.":At="":FORI=lTO1500:NEXTi:RETURN:ELSER'ETURN 

300 FOR'X=OT012:iFO=lTFCNY=X+lELSEY=(Xx2)+l 

305 W$=MID*(Y$,Y,0):H1»=LEFT$(A$,0) 

310 IFW*=H1$THEN315ELSENEXTX:RETURN 

315 V=X+1 :iFV=lTHENV$="ACE"ELSEIFV=2THENV$="TW0"aSEIFV=3T«NV»= 

"THR'EE"ELSEIFV=1THENV$="F0UR"ELS£IFV=5THENV$="FIVE"ELSEIFV=ATHEN 

V$="SIX"ELSEIFV=7THENV$="SEVEN"ELSEFV=8THENV$="EIGHT"ELSEFV=9T 

HEW$="NINE" 

31<4 IFV=10THENV$="TEN"ELSEIFV=11THENV»="JACK"ELSEIFV=12THENV$="Q 

UEEN"ELSEIFV=13THENV$="KING" 

328 RETURN 

350 FORX=OT03:FO=1THENY=X+1ELSEY=(Xx2)+1 

360 H$=MID$(Y$,Y,0) :W1$=R'IGHT$(A$,0) 

365 IFW=Wl$THEN370ELS£fCXTX;RETURN 

370 S=X+i:iFS=lTH£NS$="hCAR'TS"ELSEIFS=2THENS»="SF'A0ES"ELSEFS=3T 
HENS$="DIAM0NDS"ELSEIFS=1THENS$="aUBS" 

371 RETURN 

1000 ' I EXERCISE THE SU£:ROUTIN£ - PRINTS ALL THE CAR'DS x 

1010 CLS;FOR'S=lTOi:FORV=lTO13:X=28O:F'RINT0X,Ml»;.*PRINrg78?,CHR'»r 

3O);;fori=itoioo;nexti:gosu£:ioo:f'Rint0789,"the ";v*;" of ";s$;:f 
ori= 1 t025 : next! : nextv : nexts ; print : print 

2000 ' x TRY THE "ANY CARD SU£:-R1]UTINE" x 

2010 CIS ;PRINT0118, "TYPE ANY carb";:infuta»:gosue;20o 

2020 IFA$=""TH£N2000ELS£PRINT"VERY WELL. IT WORKS. ";FORI=1T0100 

o;nfxti;goto20oo 

2030 PRINT"VERY WELL. IT WORKS. ";FORI=1T01000:NEXT:GOT02000 

60000 ' X read GRAPHICS CHARACTER'S AND POU STRINGS x 

60005 CLS:F'RINT"PACKING GRAFWCS STRINGS. . .":fi<int 

60010 ' I CAR'O BACK - Ml* x 

60020 I=VARFTR(M1»):J=PEEK(I+1)+256xPEEK(I+2) 

60030 FORK=JTOJ+171:R£ADZ;F'OKEK,Z:N£XTK 

60210 DATA 176,176,176,176,176,176,176,176,176,176,176 

60230 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60210 DATA 151,161,137,116,161,131,152,161,131,152,171 

60260 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60270 DATA 151,161,137,116,161,131,152,161,131,152,171 

60290 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60300 DATA 151,161,137,116,161,131,152,161,131,152,171 

60320 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60330 DATA 181,131,152,161,131,176,137,116,161,137,186 

60350 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60360 DATA 181,131,152,161,131,176,137,116,161,137,186 

60380 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60390 DATA 181,131,152,161,131,176,137,116,161,137,186 

60110 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60120 DATA 131,131,131,131,131,131,131,131,131,131,131 

60125 PRINT"M1* - CAF.'D BACK COMPLETED" 

60130 ' X ALL EtANKS ~ M2* x 

6 11 I=VARFTR ( M2$ ) : J=PE£K ( l+l ) +256xpEEK ( 1+2 ) 

60150 fork=jtoj+i7i:reaoz:p(»(ek,z:nextk 

60510 DATA 128,128,128,128,128,128,128,128,128,128^128 

60530 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60510 DATA 128,128,128,128,128,128,128,128,128,128,128 

60560 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60570 DATA 128,128,128,128,128,128,128,128,128,128,128 

60590 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60600 DATA 128,128,128,128,128,128,128,128,128,128,128 

60620 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60630 DATA 128,128,128,128,128,128,128,128,128,128,128 

60650 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60660 DATA 128,128,128,128,128,128,128,128,128,128,128 

60680 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60690 DATA 128,128,128,128,128,128,128,128,128,128,128 

60710 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

60720 DATA 128,128,128,128,128,128,128,128,128,128,128 

60725 PRINT"M2* - ALL ElANKS CWf'LETED" 

60800 ' X JACK - M3* x 

60810 I=VARf'TR(M3*):j=F'EEK(I+l)+256xPEEK(I+2) 
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60820 fork=jtoj+17i:reaoz:pokek 

60850 DATA 176,176,176,176,176, 
60870 DATA 26,21,21,21,21,21,2'? 
60880 DATA 11V, 128, 128, 128,169, 
60900 DATA 26,21,21,21,21,21,21 
60910 DATA 119,128,128,128,151, 
60930 DATA 26,21,21,21,21,21,21 
60910 DATA 119,157,110,131,128, 
60960 DATA 26,21,21,21,21,21,21 
60970 DATA 157,157,110,111,128, 



,z;nextk 

176,176,176,176,176,176 
,21,21,21,21,21 
112,175,172,129,071,170 
,21,21,21,21,21 
128,128,152,129,170,170 
,21,21,21,21,21 
128,128,137,110,171,171 
21,21,21,21,21 
128,128,176,110,171,170 



60990 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61000 DATA 119,119,160,131,128,128,150,128,128,128,170 

61020 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61030 DATA 119,071,160,111,189,156,165,128,128,128,170 

61050 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61060 DATA 131,131,131,131,131,131,131,131,131,131,131 

61065 F1<INT"M3$ - JACK COMPLETED" 

61100 ' X QUEEN - M1$ i 

61110 I=VAI<F'TR(H1*):j=PE£K(I+l)+256iPEEK(I+2) 

61120 FORK=JTOJ+171!R£/»Z;F'OKEK,Z:NEXTK 

61150 DATA 176,176,176,176,176,176,176,176,176,176,176 

61170 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61180 DATA 119,128,128,128,169,173,111,111,115,081,170 

61200 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61210 DATA 119,128,128,128,137,111,128,128,162,132,170 

61230 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61210 DATA 119,156,131,137,110,129,128,128,137,172,170 

61260 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61270 DATA 119,111,161,128,128,168,110,161,176,112,170 

61290 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61300 DATA 119,136,115,128,128,130,161,128,128,128,170 

61320 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61330 DATA 119,081,162,172,172,173,165,128,128,128,170 

61350 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61360 DATA 131,131,131,131,131,131,131,131,131,131,131 

61365 PRINT"M1$ - QUEEN COMFIETED" 

61370 ' * KING - M5$ * 

61380 I=yARFTR(M5«):J=PE£K(I+l)+256xPEEK(I+2) 

61390 F0fJ(=JT0J+17i:READZ:F'0KEK,Z:NEXTK 

61120 DATA 176,176,176,176,176,176,176,176,176,176,176 

61110 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61150 DATA 119,128,128,128,169,173,173,173,161,075,170 

61170 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61180 DATA 119,128,128,128,130,172,173,131,170,171,170 

61500 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61510 DATA 119,152,131,131,131,129,128,131,131,170,170 

61530 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61510 DATA 119,119,176,176,128,160,176,176,176,131,170 

61560 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61570 DATA 119,181,119,152,173,111,111,128,128,128,170 

61590 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61600 DATA 119,075,161,173,173,173,165,128,128,128,170 

61620 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61630 DATA 131,131,131,131,131,131,131,131,131,131,131 

61635 F-RINT"M5$ - KING COHF'LETED" 

61700 ' I OUTLINE - M6$ i 

61710 I=yAf;'PTR(«6*) ; J=FtEK(I+l )+256xPEEt((I+2) 

61720 F0RK=JT0J+69:READZ:F»e!,Z:NEXTK 

61750 DATA 176,176,176,176,176,176,176,176,176,176,176 

61760 DATA 26,21,21,21,21,21,21,21,21,21,21,21 

61770 DATA 119,26,21,119,26,21,119,26,21,119,26,21,119,26,21,119 

,26,21 

61780 DATA 131,131,131,131,131,131,131,131,131,131,131 

61790 DATA 27,21,170,27,21,170,27,21,170,27,21,170,27,21,170,27, 

21,170 

61795 F-RINT"h6» - CAflO OUTLINE COMPLETED" 

61796 ' I ACE ~ M7$ X 

61797 I=VARF'TR(M7»))J=PEEK(I+l)+256xFEEK(I+2) 



61798 fork=jtoj+io3:readz:pokek,z:nextk 

61799 DATA 065,128,128,128,176,128,128,128,128 

61800 DATA 26,21,21,21,21,21,21,21,21,21 

61801 DATA 128,128,160,131,128,137,111,128,128 

61802 DATA 26,21,21,21,21,21,21,21,21,21 

61803 DATA 160,131,129,128,128,128,130,137,111 
61801 DATA 26,21,21,21,21,21,21,21,21,21 

61805 DATA 170,128,128,128,128,128,128,128,119 

61806 DATA 26,21,21,21,21,21,21,21,21,21 

61807 DATA 128,137,110,169,128,150,110,131,128 

61808 DATA 26,21,21,21,21,21,21,21,21,21 

61809 DATA 128,128,128,131,131,131,128,128,065 

61810 PRINT"M7$ - ACE COMPLETED" 
61815 ' I PIPS - PI* TO P8* « 

61820 I=y(«PTR(Pl*) :j=F'EEK(I+l)+256xFtEK(I+2) 

61830 fork=jtoj+8;readz:f'Okek,z:nextk 

61810 data 188,181,118,26,21,21,21,130,135 
61850 I=i'ARfTR(P2*):j=PEEK(I+l)+256)«FEEf;(I+2) 
61860 F0FJ(=JT0J+7!READZ:P0Ke!,Z:NEXTK 
61870 DATA 160,180,26,21,21,131,135,129 
61880 I=VARfTR(P3$) ! J=PEEK(I+l)+256xPEEf((I+2) 
61890 F0RK=JT0J+8!R'EADZ:P0KEK,Z!NEXTK 
61900 DATA 181,189,111,26,21,21,21,130,135 
61910 I=VARFTR(P1$) ; J=FtEK(I+l )+256xF'EEK(I+2) 

61920 fork=jtoj+9:readz:pokek,z:nextk 

61930 DATA 181,188,111,26,21,21,21,131,135,129 
61910 I=VARPTR(F'5$) ; J=PEEK(I+1 )+256xPEEK(I+2) 
61950 F0RK=JT0J+9:R€ADZJF'0KEK,Z:NEXTK 
61960 DATA 128,181,111,26,21,21,21,138,135,113 
61970 I=VARPTR(P6$) ;j=F'EEK(I+l)+256iF'EEK(I+2) 
61980 F0Rt!=JTOJ+7!READZ:POKEK,Z.*NEXTK 
61990 DATA 160,181,176,26,21,21,139,129 
62000 I=VARPTR(P7*) : J=FtEK(I+l )+256)«F'EEK(I+2) 
62010 F0Rf(=JT0J+9:RE(»Z:P0f(EK,ZiNEXTK 
62020 DATA 128,181,111,26,21,21,21,130,175,135 
62030 I=VARPTR(F«*);j=F'EEK(I+l)+256i(PEEK(I+2) 

62010 fork=jtoj+9!readz:pokek,z:nextk 

62050 DATA 160,181,176,26,21,21,21,130,113,135 
62060 F'RINT"P1* TO P8* - PIF-S COMPLETED" IFItENT 
65000 PRINT" TYPE DELETE 60000 - 65000 
TYFE DELETE 90 <ENTER>": PRINT ^% 



<.INTER> THEN 




"daddy Doesn't give a darn; 

WHAT THE SQUARE ROOT OF 
435 ISl " 
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STRATEGY PACK I 6404 

Roman Checkers. This ancient game lias been 
a favorite for hundreds of years. It couldn't be 
easier to play, yet playing the game well takes 
skill, cunning, and strategy as you try to out- 
think your opponent. 

Frame up. Try to out-manuever your opponent 
or play against the computer In this game of 
wits and calculated strategy. You will alternate 
selecting numbers and controlling your 
opponents choices. Joysticks are optional. 
2 programs on cassette $19.95 



WALL STREET CHALLENGE 6402 

This computer simulation of the stock 
exchange is easy to play and always 
challenging. Invest in several corporations 
ranging from Municipal Power and Light, a blue 
chip stock that usually provides steady growth, 
to Offshore Industries Limited, a high-flying 
speculative stock that is certain to change 
often. Stock charts, and the Dow Jones show 
you the trends. Both 8K and 16K memory 
versions are included. 
Cassette i$14.95 



STRATEGY PACK II 6405 

Target Chase. Choose a partner or challenge 

the computer to this fast action, catch-or-be 

caught adventure. 

Tunnels. In this electronics hide-and-seek, only 

the computer knows where you will appear 

next. 

Survival. Intercept your opponent before you 

crash or are devoured. 

Snake Hunt. Fast maneuvering and quick 

response are essential to capture - or escape 

from - your opponent. Joysticks are required. 

4 programs on cassette $1 9.95 

SKILL BUILDER I 6406 

Bingo Duel. This fast-action skill game for one 
or two players provides an exciting challenge, 
because young children and adults can 
compete equally. The computer adjusts to 
match your skill and problems are specifically 
selected to help you gain speed. 
Number Hunt. Matching numbers is easy 
enough for young children, yet this computer 
game quickly advances in difficulty to 
challenge the experts. Joysticks are required. 
2 programs on cassette $1 9.95 



ALL STAR BASEBALL 6401 

This computerized version of America's 
favorite sport is full of fast action fun. Each 
player takes a turn at bat while the other player 
is both pitcher and the outfield. 
The Innings, score, and even errors are 
calculated by the computer and displayed on 
the official scoreboard. Balls, strikes, and all 
plays are called with absolute precision. 
Joysticks are optional for both players. Both 8K 
and 16K memory versions included. 
Cassette $14.95 

MIND MASTER 6403 

This classic strategy game takes on a new 
dimension as the computer designs the hidden 
problems and reports the results of each guess. 
Multiple players may compete against the 
computer and each player may select the level 
of difficulty that matches their skill, ability, and 
patience. This program also contains a formula 
for solving logic problems. Create the answer 
and watch the computer use deductive logic to 
discover the secret code. Both 8K and 16K 
versions. 
Cassette '$1 4.95 



IheScHtyi^re Exchange 



TO ORDER TOLL FREE 

J1-800-258-1790 

(In NH call 673-5144) 
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Acorn Software and Leo 
Christopherson combine to 

bring you . . . iiUEL-[\J-EiRDiB5 



> 




< 



You are the Fencing Master and your android is the raw material you use to 
claim top honors in the Tournament. All you need to do is train him (her, it?). To 
do so, you make the android duel with the machine's androids. Once he is 
trained to your satisfaction, just enter him in the Tournament and sit back to 
watch the fun. 

Features include: 

* Sound Effects 

* Extensive Graphic Displays 

* Multiple Playing Levels 

Christopherson is the author of such programs as Android NIM, Snake Eggs, 
and Bee Wary. Don't miss out on the chance to add this great action game to your 
software library. 

TRS-80 Level II, 16K Cassette $14.95 

Disk, $20.95 



The Saitw^are Exchange 



6 South St , Mllford. NH 03055 

TO ORDER: 

CALL TOLL-FREE 

1 •800-258-1790 

IN N.H. CALL (603) «73-5144 
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KEYBOARD ORGAN 



by Rob Hausman 

KEYBOARD ORGAN is a 
machine language routine that will 
work with any Apple. 

My son was slightly over a year 
old when he discovered that the 
RESET key produced a pleasing 
beep. It didn't take long, about ten 
minutes of constant beeping, for 
me to decide that it was time for 
him to move on to bigger and 
better (or at least more varied) 
things. The result was a keyboard 
organ. 

The organ is divided into two 
sections. The machine language 
program occupies locations $1000 
through $1025, while the data for 
the program is stored in $1080 
through $10FF. 

The data can be entered directly 
from either the Integer or 
Applesoft monitor. This is accessed 
by typing CALL-151. You should 
get an '8' prompt. For example, the 
first eight bytes re entered by 
simply typing 

*1080 11111111 

The number preceding the colon is 
starting address (in hexadecimal), 
and the numbers following are the 
bytes to be input (again in "hex")- 
The program itself may also be 
input as just another set of data; in 
this case, the machine language 
bytes. However, on the Apple 
there is a built-in mini-assembler. 
In order to use it, type: 

*F666G 

while in the Integer BASIC 
monitor. (Both an assembly listing 
and a memory dump are provided, 
in case you don't have Integer 
BASIC.) The resulting exclamation 
mark is the mini-assembler prompt. 
The first instruction may now be 
entered 

I100;LDA $CO30 
Again, the number preceding the 
colon is the address at which the 
instruction is to be stored. 



Subsequent instructions may be 
entered by merely typing a space 
followed by the instruction. When 
you are done entering the program, 
hit the reset key to get back to the 
monitor and then list the program 
by 

*1000L 

Unless you enjoy typing, you will 
want to save the organ using 

*I000.10FFW 
The organ can now be loaded by 

*1000.10FFR 
and then executed by 

*1000G 

The program is just one large 
loop. Each time through the loop, 
the first instruction "clicks" the 
speaker by accessing location 
$C030 (hex). The second 
instruction then loads the contents 
of the byte at location $C000 into 
index register X. (The $ reminds us 
that the address is given in 
hexadecimal.) In the Apple, this 
location is special. It contains the 
ASCII representation of the last 
key pressed. This takes up the 
seven low order bits. The 
remaining bit is called the sign bit 
and in this case it tells us whether 
a key has been pressed since we 
last checked. If this bit is one 
(minus), then a key has been 
pressed. Oherwise, the bit is zero 
(plus). The instruction 

$1006 BPL$1019 

"Branches on PLus" to $1019, that 
is, it causes execution to branch to 
the instruction at location $1019 if 
no key has been pressed. 

If one has been pressed, then we 
continue with the instruction at 
$1008 which resets the sign bit of 
$C000 to zero. The next instruction 
selects a value from the data 
section. The value in index register 
X is added to $1000 and the byte 
at that address is loaded into the 



accumulator. It is then stored into 
$1030. 

The instructions in locations 
$1011 through $1018 constitute two 
nested delay loops. Together they 
provide a slight hesitation between 
notes. Consider first the inside 
loop: 

$1013 DEY 

$1014 BNE$1013 

The first instruction Decrements 
the value in the Y register. If the 
value was 0, then it becomes 255. 
The second instruction jumps back 
to the decrement instruction as 
long as the value in Y is non-zero. 
The outside loop consists of the 
instructions at $1011, $1016 and 
$1017. The instruction 

$1011 LDX#$0F 

Loads the value 15 (=$OF) into X. 
This means that X must be 
decremented 15 times before the 
outside loop is exited and 
execution can continue at location 
$1019. 

The remaining instructions 
provide the delay between speaker 
"clicks" dictated by the value 
stored in $1030. This value 
determines the pitch; a large value 
being associated with a low pitch. 

The instruction at $1019 loads 
this value into X. This is the 
number of times that the 
subsequent loop is traversed. The 
mnemonic NOP stands for "No 
Operation." These instructions are 
nothing more than time wasters. 
The final instructions JumMPs 
back to the beginning of the 
program at $1000. 

The organ, as listed, uses only 
the keys shown below. 
If you want to add more notes or 
rearrange those above, you need 
merely change the values in the 
data section. To find the byte 
associated with a particular key, 
add the ASCII value of the key to 
$1080. The byte at the resulting 



E R Y U I 
S D F G H J K 



L 



"Black keys" 



'White keys' 
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address contains the data which 
will be copied into $1030 when the 
key is struck. 

One warning. Recent research 
indicates that a one-year-old 
pounding an organ can be just as 
distracting as a one-year-old 
pounding a RESET key. 



Assembly Listing 


of Program 


.>CALL-151 




il86t.ll30L 




1800- 


AD30 CO 


LDA $C030 


10B3- 


t£ U CO 


LDX $C000 


1106- 


10 11 


BPL ilD19 


1108- 


8D 10 CO 


STA iCDlO 


lOOB- 


BD 00 10 


LDA $1000,X 


lOOE- 


8D30 10 


STA $1030 


1011- 


A2 OF 


LDX «DF 


1013- 


88 


DEY 


1011- 


DO FD 


BNE $1013 


1016- 


CA 


DEX 


1017- 


DO FA 


BNE $1013 


1019- 


AE30 10 


LDX $1030 


lOlC- 


CA 


DEX 


lOlD- 


EA 


NOP 


lOlE- 


EA 


NOP 


lOlF- 


EA 


NOP 


1020- 


EA 


NOP 


1021- 


D0F9 


&€ $1D1C 


1023- 


K 00 10 


JNP $1000 


Memory Dump of Entire Routine 


with Data 




1000- 


AD 30 CD tf 00 CO 10 11 


1008- 


8D 10 CO BD DO 10 8D 30 


1010- 


10 A2 OF 88 DO FD CA DO 


1018- 


FA AE 3D 10 CA EA EA EA 


1020- 


EA DO F9 C DO 10 


1030- 


01 




1080- 


01 01 01 01 01 01 01 01 


1088- 


39 01 01 01 


01 01 01 01 


1090- 


01 01 01 01 01 36 01 01 


1098- 


01 01 01 01 01 01 01 01 


lOAO- 


01 01 01 01 01 01 01 01 


10A8- 


01 01 01 01 01 01 01 01 


lOBO- 


01 01 01 01 01 01 01 01 


10B8- 


01 01 01 11 01 01 01 01 


lOCO- 


01 9F 01 01 85 8D 76 iF 


10C8- 


63 52 58 IE 19 01 01 01 


lODO- 


15 A9 7D 96 01 5D 01 01 


10D8- 


01 69 01 01 01 01 01 01 


lOEO- 


01 01 01 01 


01 01 01 01 


10E8- 


01 01 01 01 


01 01 01 01 


IBFB- 


01 01 01 01 


01 01 01 01 


lflF8- 


01 01 01 01 


01 01 01 01 




If 

7 
I. 

a 
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r^LFUL^TOn 

by David T. Gray 

COLUMN CALCULATOR is a "word processor for 
numbers," a number processor designed to be used like a desk 
calculator. It is different than a calculator in that it can handle 
large blocks of information as if handling one number at a time. 
The work space can be thought of as a large matrix with rows 
and columns much like an accountant's spread-sheet. Each 
column or row can be labeled. The cursor can move around the 
worksheet. Data can be easily entered into the columns; and the 
columns can then be moved around. Columns can be overlaid 
from an existing data file on disk.One column can be added, 
subtracted, multiplied, divided, or raised to a power of another 
and the results put in another column. Columns can be 
compared to one another (if column A is greater than, less than, 
equal to, not equal to column B, then put the contents of column 
C into column D). Columns can be totaled, or set with a 
constant, and any column can be sorted, carrying the rest of the 
columns with it. A predefined function (series of computations) 
can be defined, thereby preprogramming the worksheet. Enter 
the data, execute the function, and print the results. The 
COLUMN CALCULATOR is an all-purpose data manipulator. 

The statistical section provides analysis of the data. The 
analysis includes simple statistics (mean, median, mode and 
standard deviation), linear regression, simple correlation, 
histogram and the T-test. 

The information can be printed out on the line printer in a 
compressed format at any stage in the development of a data 
base. Thus, it can be used as a finished report or as a copy of the 
worksheet to permit the filling in of additional data for later entry 
into the data base. The data base can be saved on disk and 
recalled at a later date for modification or for generating a 
report. Any column in a file on disk can be referenced and added 
to the current worksheet. This is particularly useful for 
generating composite reports. 

All user communication with COLUMN CALCULATOR 
uses FLASH, the line input/editor routine. This enables the user 
to not only key in his instruction to COLUMN CALCULATOR, 
but to edit errors or data as well. 

By connecting an amplifier and speaker to the cassette aux 
output from the computer, the user can hear data entry 
feedback sounds which enable him to enter information into his 
worksheet without constantly watching the screen for visual 
feedback. 

Information may be reviewed at will by scrolling up, down, left 
or right. Everything appears on the video display screen as it 
occurs, thereby eliminating guesswork. 
32K disk $59,95 

The Sohw&ate Exchange 

6 South Street, Milford, NH 03055 
TO ORDER TOLL-FREE: 

1-800-258-1790 

(In NH call 673-5144) 
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Exciting 
Entertaining 
Software for 
the Apple II 
and Apple II 
Plus! 



?^%^^ ^ 



?^«: 



_S Quality Software 

ASTEROIDS 
IN SPACE 



If you liked "Invaders. " you'll 
love ASTEROIDS IN SPACE by 
Bruce Wallace. Your space ship 
Is traveling in the middle of a 
shower of asteroids. Blast the 
asteroids with lasers, but beware 
- big asteroids fragment into 
smaller asteroids! The Apple 
game paddles allow you to rotate 
your space ship, fire its laser 
gun. and give it thrust to propel 
it through endless space. From 
time to time you will encounter 
an alien space ship whose 
mission is to destroy you, so 
you'd better destroy it first! High 
resolution graphics and sound 
effects add to the arcade like 
excitement that this program 
generates. Runs on any Apple II 
with at least 32K and one disk 
drive. On diskette ■ $19.95 



ORDER TOLL FREE 

1-800-258-1790 



(InNH call 673-5144) 



The Right Tool 
for the J 



• • 



STAD 



RAMWARE 

Unlock the power of the Z-80 with STAD Symbolic Trace 
and Debug 

A powerful monitor for the TRS-80 with special 
Debugging Single Step through the machine language 
programs or set up to three breakpoints, and look at this 
display format! 

For tape and disk systems. 16. 32. and 48K on one cassette 
$24.95 

EDITOR/ ASSEMBLER PLUSm.crosoft 

Plus what? V\/ell, you get the features of the T-Bug and 
the original editor/assembler plus macros and conditional 
assembly, plus extra commands like substitute, move. copy, 
and extend, plus Z-Bug. a powerful debugging monitor with 
8 level breakpoint capability. $29.95 



RSM 2/2D 



SMALL SYSTEMS SOFTWARE 



22 commands to control your TRS-80 Z-80 processor' 
Examine ROIvl, test RAM. program in machine language 
read/write machine language tapes, and much more' RSM-2 
tape loads at top of 16K Level I or II. RSM-2 disk includes 
3 versions for 16K, 32K and 48K RSM-2: AN ADVANCED 
TAPE MONITOR FOR 16K TRS-SOs $26.95 



RSM-2D 
$29.95 



THREE MONITORS FOR TRS-80 disk systems 



Z-80 ZAP/CMD 



RAMWARE 



Powerful disk modification utility in machine language 
allows you to READ, DISPLAY. MODIFY, WRITE, and 
COMPARE disk sectors It will calculate Hash Index Codes 
for any filespec and tell you where to put it (ever have a HIT 
read error'') You can recover killed disk files Search for a 
byte and have it identified with a flashing cursor 
Convenient to use. with cursor controlled by arrows, paging 
forward and backward, toggle between same sector on 
different disks and between Z80ZAP and DEBUG Do disk 
backups, apply patches and fixes, and explore your disk 

Program on disk lor minimum 16K 1 disk tyitem, with 
Initrucllon manual. $29.95 



ULTRA-MON 



INTERPRO 



The first intelligent monitor available for the TRS-80 
Ultramon is the first ROM independent machine language 
monitor which puts you in COMPLETE CONTROL with 
exclusive INTERPRETIVE EXECUTION 

Each instruction is individually fetched, decoded, 
disassembled , and analyzed by Ultramon's "BRAIN" so that 
your efforts cannot "Bomb-out " and so that you can put 
breakpoints anywhere You can even put breakpoints in 

ROM 

ULTRA-MON displays, disassembles, traces (hard-copy 
trace disassembly, tool) lineprints. modifies, relocates 
memory, and even relocates itself with its commands This 
13-page documentation SHOWS YOU HOW TO DO IT 

Totally ROM independent, Ultramon will work in both the 
old and the newer ROM and will not be affected by any 
lower case modifications. 
Cassette. $24.95 



6 South St . Millord. NH 03055 

TO ORDER TOLL-FREE: (in NH call 673-5144) 

1-800-258-1790 
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ATARI PROGRAMMING HINT 

Any ATARI program which 
does not use any keyboard input 
and has. au execution time of over 
nine minutes and seven seconds 
initiates the color change routine. 
After this time the color registers 
are changed every few seconds. 
This prevents any one particular 
phosphor in your television's 
picture tube from being worn out. 
If not wanted, this color change 
routine can be overcome by 
inserting 

POKE 77,0 
in a frequently used portion of the 
program. This will reset the 
counter that keeps track of how 
long it has been since the keyboard 
has been used. 

Robert Schommer 
Maplewood, N.J. 

S-80 PROGRAMMING HINT 

Here is a subroutine which 
allows "full screen" graphics to be 
printed out on a Quick Printer II. 
Anyone owning a Quick Printer II 
will know that it is not supposed to 
be able to print graphics. 

The one problem I had was that 
the "QPIl" has a maximum of 32 
characters per line. Thus, to get a 
"full screen" printout, I had to 
print it in four strips! 

But for "one shot" printouts it is 
very handy. 

The routine is easily modified so 
that any section of the screen you 
want can be printed, ignoring what 
you don't need, just by changing 
the range of the FOR/ NEXT loops 
- but watch it:lLine 3010 must have 
32 total loops, no more, no less, in 
order to maintain the proper 
format to the printer. But that 32 
can start anywhere! 

2900 'QUICK PRINTER II 

2?10 'GRAFmC PRINTER SUBROUTINE 

2920 'BY JOHN D. WILLIAMS 

2910 'TAMPA, FLORIDA 

2950 'USE A GOSUB AFTER THE 

2960 'SCREEN IS FltlNTED TO 

2970 'INITIATE LINE PRINT 

2980 'SUBROUTINE. SCREEN IS 

2990 'PRINTED IN 1 SECHONS. 

3000 o=o:r=31 
3005 forbe=0tov 
3010 foraa=qtor 

3020 FF'tilNT(AA,Be)Tl£NLPRINT 

CH«(127);aSELFftINT" "; 

3030 fEXTAA 

3040 NEXTE* 

3050 Q=R+i:R=R+32;ffR<=95THEN 

GOTO3005aSERETURN 

3D&0 END 

John D. Williams 
Tampa, Florida 




SHAPE 

TABLE 

DESIGNER 



Design shape tables with 
keystrokes or paddles. 

Also included are Applesoft 

Invaders and Slot Machine — 

colorful variations of well-known 

diversions whose graphics were 

created with this package , and 

instructions for saving graphics 

on disk and putting them in your 

own programs. 
32K Applesoft ROt^ . $29.95 on 
diskette 




Create 3- 

dimensional 

graphics! 

by Mark Pelczarski 



3-dimensional figures can 
be rotated, shifted, scaled 
or distorted. Each figure 
can be saved on disk and 
later assembled into larger 
figures, with each part 
capable of being 
manipulated. Screen 
images may be saved and 
used with other programs. 

48K Applesoft ROM 
$29.95 on diskette 




TO ORDER 
TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 
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TRENCH 




by Tim Hays 



TRENCH 

Trench requires 1 Atari joystick 
and 16K memory. 

The object of this program is to 
destroy the Death Star by 
maneuvering your ship away from 
a crossfire until you reach the 
exhaust vent of the Death Star and 
fire your photon torpedos down 
the trench. 

In the beginning you are already 
in the trench, flying down the 
corridor at your ship's top speed. 
There are three laser posts located 
on the left and right walls, and on 
the floor bottom. These lasers 
flash by you and fire on your ship 
at random intervals. The frequency 
of the fire from the laser posts is 
determined by the level of 
difficulty you choose, (1-19), with 
1 being the hardest. All three lasers 
will aim at you independently. 
Each will fire at the mid-point 
between you and the last spot fired 
upon. As long as you keep your 
ship moving away from the three 
laser shots, and keep track, you 
should not get hit. 

You will be able to see the 
number of miles to go at the 
bottom of your screen. This will be 
higher at more difficult levels of 
play. When the distance to go 
reaches 20, the on-board attack 
computer will be activated, the 
lasers will stop firing at you, and 
the end of the trench will come 
into view. You now have to 
quickly line up the center (one 
pixel) of this well so that the 
exhaust vent is exactly in the center 
of your sights. 

When you approach the last 30 
miles, set your ship close to the 
center so that you can Hne up the 
approaching target more easily. 
When you do have everything lined 
up, you must fire on the vent after 
the bottom wall is below the 
bottom of your sights and the 
target is close enough to be hit 
accurately, (the computer will say, 
'FIRE NOW!'). If you succeed in 
hitting your target, you must 
immediately pull back on your 
joystick to pull up and out of the 

66 




trench. If you don't do this, you 
will run into the wall and be 
destroyed. Upon pulling out of the 
trench, the screen will go back to 
normal mode and show a window 
view of your ship moving out of 
the trench, and then switch to an 
aft view showing the Death Star 
being destroyed. 

During your flight down the 
trench, remember that if you go 
too close to the sides of the 
corridor or the floor, you will run 
into them and be destroyed. If you 
go off the top of the screen, you 
will be out of the trench and your 
mission will be aborted. 

Variables used in TRENCH 
NOTE: Many of these variables 
are used more than once, or for 
more than one item storage or 
loop. 
letters: 

'A' Looping (FOR - NEXT). 

'B' RND GOSUB of Laser 

fire, dependant on 'R'. 
'C Screen refresh (redraw 

what was erased by ship 
& lasers). 
'D' "X" Position of upper- 

left laser post. 
'E' "Y" Position of upper- 

left laser post. 
'F' "X" Position of upper- 

right laser post. 
'G' "Y" Position of upper- 

right laser post & "X" 
size of the target wall. 
'H' "X" Position of bottom 
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laser post & "Y" size of 

target wall. 
'I' "Y" Position of bottom 

laser post. 
'J' Looping. 

'L' Length of time until ship 

runs into wall. 
'R' Input level of difficulty. 

'T' Miles left to target. 

'U' FOR-NEXT loops, 

control var., color locate 

var. 
'X' Ship positioning. 

'Z' Used as a TRUE/FALSE 

var. (eg. IF Z = 1 THEN 

GOTO. . . . ). 
'STRIG' Status of joystick trigger. 
'JS' Joystick positioning 

status. 
'Zl' used the same as "Z". 
'LI' looping (nested with 

"L"). 
'Ur nested looping with 

"U". 
'jr wait looping - nested 

with "UI above. 



1 REM BV TIM HftYS SEBREE'S COMPUTI.HG 
Copa^i^^■t 1988 ba SEBREE'S 

2 REM 456 Granite (*.«> flonrovia, CA. 91 

eie 

3 REM When IhPUTire tJ-.is Prosrain. DOi'T 
leai,* unecessarM SPPCS.5. You naa nn ov 
er the prosrain LINE it mou do; 

4 REM T^fin tte ftTflRI will NOT accept t>« 
line Paa particular attention to tlie 1 

one lines FROM 66 TO 110. 

Traps input errors, inhibit cursor, 
resets keaboard for- input 

5 TRflP 10 GRflPHICS POKE 752, 1 F=90^G=2 
0H=138 1=36 POKE 764,255 POSITIOH 6,16^ 
? "INPUT La€L OF DIFFICJLTY" 



Sets difficulty ___ 

le INPUT R T=125-(Ee) ' "tt Pr«S5 HUE] 
(EH to start TREhCH tt" 

Q-iecks for trisser to tie rressed, 

29 IF STRIG(8)=1 ThBI ^ 
Sets <>-ir'i*6ter5 

38 GRAPHICS 7 PflKE 752, 1 COLOR 2 0=86 £= 
18 X=2e V=2e- " niLES to TrtRG£T=" 

Stirs 

48 FOR A=l TO 25 PLOT R^O:: 1 >.*87+38,RND', 1 
)*18 NEXT ft GOTO 118 

PUaer's sl-iip 

58 PLOT X-5,Y DRAWTO X+5,Y aOT X-2,Y+1 
DRrtJTO X,Y-2 DRAWTO :<+2/i'+l RETIJRN 

Upper left laser post. 

ee COLOR 2 PLOT 62,32 ORrtlJTO 62,48PL0T 
47,24 DRflWTO 47,55 PLOT 17,9^DRAUTO 17,7 
8 CO-OR 4 PLOT 62,32 ORftJTO 62,48 

61 SOUND 1,98,8,8 PLOT 47,24DRflUT0 47,5 
S^PLOT 17,9 DRftlTO 17,70 COLOR 3 PLOT 8, 
8 ■■ D=( D+X )/2 E^; E+Y \<2 DRAWTO 0, E 

Did lisar hit sI-jp^ 

62 IF D<X+5 TfCN IF D>X-5 ThtN IF E;>Y-2 
Tt€H IF E<Y+2 THEN 488 

Erase laser 

63 COLOR 4 PLOT 8,9 DRAWTO D,E SOUC 1,8 
,8,8 RETURN 

Upper ri9)-,t laser. 

78 COLOR 2 FtOT 96, 32' DRAWTO 96.49 PLOT 
113,24 DRAWTO 113,55 PLOT 145,9 DRhWTO 1 
45,72 COLOR 4 FIOT 96,32 DR'AiJTO 96,49 

71 SOUND 1,68,8', 8 PLOT 113,24 DR'AWTO 113 
,55 PLOT 145,9^0RhWT0 145,72C0L0F: 3PL0 
T 159,0F=!F+X>-'2G='G+Y>.-'2-DRAWT!:! F,G 

Did laser hit^ and erase 

72 IF ';F:X-5 hHj F;X+5 AfC G>V-2 AND G<Y 
+2) T1£N 4i>j 

73 COLOF' 4 PLOT 159.0 ORiiJTO F,G Sffl.W 1 
,0,ti.a .PETLIPtI 

B:.tt:« laser 

80 LOLCiF' 2 .i^lOT t3,49[.ft*lT0 9fe,49F10T 
43, J? DPhIJTu 113, .53 FIOT 18,71 ORfH-JTO 14 
3,71 COLO* 4 FIOT b3.49DPHWT0 96,49 

81 SOUMO ;,4e,S.SF10T 43,59 DF^hJ'ITO 113, 

59 PLOT 18.71 -DRftUTa 143,71 COLOR 3-pLOT 
0,79 H=(H+X>-2:=a+Y).'2 DRftWTO H, ! 

Did l.is&i- Kit ty.i sl-.i:= if .'-iOt, a-ase 
lase- 

82 PLOT 153 75 Dfi'MMTO H. i ■ IF :H>X-5 UNO 
H::->5 HNti I 'V-2 hMD !^Y+2;' THEN 400 

83 COL'OP 4 PLOT 6,79 ORfiiXO H. I'PLOT 159 
,75 DR;-ilJTO ,H ! ;001t! 1 .6.9,6R£TIJRH 



110 '.-OLL!p 1 FlOT 2.0a?;H!JTQ 157.79 PLOT 
0,0 DRUiT'j 159.79FL0T !57,ijDR;il-rO 2.75 
,flOT 155 DRiJi'C 0,79 
120 COlO'F 7 1=101 :iS.10 PLOf 79,39 PLOT 7 
9 40 I^IOT 80,39 C'O 00*01 10 O.RNOa ;*l!+4. 



.bast 






130 Ji^dLl ' !F ..!S^7 OP ,JS^6 iTR JR=5 

THE!! : <:^4 IF :M53 THEN GOTO 410 

!4a E-p,k)ri, jj ,'Q If J5=;i iji;. .J::.-i|3 rjR js-a 

THEM ::=:■:-! if :i:5 theii goto"430 

150 IF Ji-L^ OR JS-i OR .,18=16 THEN r=Y-2 
IF Y:3 THEN " " ll!T OF TREHCHi MISSION 
ABOF'TE: , ."^UTi 



POttEs 



iitior C'j-a.jr to f.''i;it out 



sii ies r^iii.iin.riD 
160 T=T-0 5 POlt -jSCO PiJ^E 657. 23 ' INT 
(T>," " IF .10=; J ijF J8=9 up J£^5 THEN Y= 
V+2 IF V.77 THEN 0010 420 

GOSUE 50 to erase -sIm.- 

178 COLOR 2 GOiUe 50 IF B<0 5 THEN COS.I.IP 
IHTifthtXl «3):!ilS+50 

If there are less thar 20 miles re- 
fiainirs, act i vats attack coinputer and 
GOTO 2rid l-,a!f of Krosraai 

188 IF T<2'e T1€H GOTO 60i3 

If screen .-jeeds refresF.ms, iSOSUE 
screen redraw, else GOTO 136 



198 COLOR 4 GOSUe 50 C-C+MF C=5 THEN C 

OTO lie 

288 GOTO 138 

Explosiori routine, tl-« FWE of 712 
will alter tFe bad<9rci.nd col>Drs_fa5- 
ter than SETCiXOR aill 
388 TRAP 319 SOUND 9,99,8,8 SiJUND 1,75,3 
,8'SOUND 2,68,8,8 SOIJfD 3,28,8,8 
385 FOR L=l TO 16 POKE 712, 15.*,RN0': 1 ;«;? 
)^hCXT L RETURN 

318 FOR L=S TO 8 STEP' -2 FOR Ll=l TO 8 P 
OKE 7I2,15:t(RfO: 1 W17} ,'€XT LI 
329 SOUND e,99.8.L SOLtO 1, 75, 8. L SOUND 
2,6e,8,L .'aUO 3,2^,8,L ICXT L POKE 712, 
8 

If explosion »as used as a subf^outine, 
RETURN 

338 IF Zl = 10 TICN RETURN 

kbit for response fro« keabcard. tf-«i 
RLH, 

388 ^ "PRESS ENTER TO RISK YOUR LIFE AGA 

IH":POKE 764, 2S 

398 IF PEEKC 764 X >255 THEN RUN 

395 GOTO 398 

Graphics for laser post kit 
488 GOSUt 389 " " 'iDU'UE BEEN HIT B^' A L 
ASER POST I < " 

481 GOSUe 388 FOR U=4 TO 2'W SOU'O INTCR-N 
D(,i;'.1;4),R«X:i»99,S,8 

492 COLOR RND<i:'*6 FIOT X,V OR'AWTiJ RM>: 1 
)*159,RND'.1»:79 PLOT X+U,Y+U^ DRAWTO RNC. 
1)*3+X+U,Y-U-RM>;1>13 

483 DRAWTO X-U+R,ND( 1 ):«, V-U-RNO< 1 :«3 DRA 
kJTO X-U+R'ND': 1 vt2 , Y+l>+RtJD, 1 ).*3 »rtWTu X+U 
+RM>Ll):t3,Y+U+RNO:l):i3 

484 FWE 712, U .NEXT U GiJTU 310 
Graphics for Kittins the risl-.t ual 1 

418 GOSLe ,380 ' " HIT T« RIGHT WALLi '" 

FOR U=15e TO Se STEP -1 SOLfC I.NT(:RND<1> 

*4),RN(Xl):i:U,8.8 

415 COLOR' RfO: 1 :'*8 FLOT X,Y- DRAWTO X-Rf€ 

( 1 >*45 . 1 0+PNO', 1 ,':f:e5 ■ PiXE 7 1 2 . U ■ ^CXT U ■ GO 

TO 310 

Graphics for hittire bottom of 

TRENCH 
42'a GOStt' 300 " " RAN INTO THE T.RENCH EC 
TTOtr I" FOR' 1.1=150 TO :3e STEP -I'SJUNO IN 
T(PHJ(!):<;4),PtO: l):a.l,8,8 
425 COLOR F'fO! JtiPLOT X,Y POKE 712, U^D 
RAWTO RND; 1 ),tl55.4S+RHO'- iJ*39l-EXT U^GOT 
310 
Graphics for hittirrj th* left wall 

4,30 GOSLIE' ,300 ' " HIT Tft LEFl WALLi'"-F 
OR U=!,5y TO ■Sm. STEP -1 SCUO 1NT( .K'NU! 1 >* 
4),RN0i l;:j:U.S,8 

435 COLOR' R10lJ*SPLOT X,Y:pUKE 712,U^D 
RAWTO X+fitO 1 mt. le+RNLK 1 >tt5^r€Xr UGO 
TO 318 

Attack computer is activated 

680 FOR ,>! TO 16 i.f.U£i 2,30. 12, 4' PO*,E 8 
4,2 POt:E ;55.1 "' "tAT^HCk COMPUTER ENiOhGI 
tC" SOUrlLi 2,6112.4 C=l H=! 
605 L=0 ^RuP 401 REM REi'ERiE ','I0E'3 LETTE 

610 FOR 0=1 n 13 NEXT J POKE 84,2P0K,E 
£S, ! ■ " WTTACK laWTER bH!;<<i.!m ' itXT 



POKE 712,43 POKE 7i3P .e PC 

mm cwuTgi^ /^eT^JArEl 



J 

626 ijRtiPHlL 
KE 710,255 
IPni " F'CikE 7 

Grap+iics f:Dr wirsiDu '„'ieu! of ship 
CO* ins out of the trench 

898 FOR' U=8 TO 79 STEP 4 GRAPHICS 23 COL 

OR 2^PLUT a.U-CRAWTu 70 . U- 3+30 ' PLOT 159, 

U^DRAWTu 98',U,.i+,30 FIOT 17, 87 -DR'AiJTO 70, 

U-3+56 

891 COLOR' 1 FLOT 72,43-U J DF'AWTu 96,43- 

U''3 PLOT 84,31-U--3^0RHWT0 84.55-U'3C0LU 

R 2 

895 IF U>46 11£N FLOT 0,U',3+2j DR'AWTu 15 

9, U- 3+23 

980 PLOT 142,87:0F.'Afc,'Tu 98, U,-' 3+56 FIOT 78 

,U.-3+30 DR;hWTu 98.0.-3+30 DR!AWT0 9S,U,-3+5 

6 DRAWTO 78,U 3+56 DR:i|lJru 78, U- ,3+36 

Graphics fnr aft view of di^ath star 
918 NEXT U GRt^HICS 7 PO^S 712, 16 PLOT 
,79 DRAWTO 40,65 DRAWTO 86, 66 D,RAl.JTO 119 
,65 

929 DftrtJTO 159,79 PLOT 73,62 DRAl-JTO 7'9,6 
8 DRAWTO 81.79 PLOT 75 . -62 ^ DRAl'lTU 81.68 
RAWTO 84.79 

Display ujamira. tiiairs loop. NOTE 
CTRL-uP-arroi; is used 'Uri both 1 ines 



925 FOR Ul=l TO I ft SOUND 2,6 1, 19.4 POKE 
84,2 POKE 85,1 ■- ItfT UIEU ~-_ RfiNGE 

CRITICAL! I "^SOU-0 2,123.18,4 
927 FDR .Jl=l TO 16^1€:>iT Jl^ F'OKE 34,2 POK 

£^.rv 't^T uiEu _-~ mcEdimm 

Eij" POKE -,W, 15t<RW>: 1 ^irTTCTTTJI 
Death Star explodes POKEs control W>e 
colors better tF.in SETCULOR' mould 
here. 

930 FOR' U=l TO yy^POKE 789. 15:«RfO 1 ;'*17 

)-ttyj uayajB 300 ^f* !>i79 to se step 

-I ^SOUIC INTcRND'- 1 »4>,RH>; 1 )«J,3,3 
940 COLOR RNDll 1.1:8 FIOT RtO: 1 «159,79^F'0 
KE 7 1 2, U DRAWTO RNO': 1):*1.59,PND',: 1 )S79^!«X 
T U-ZI=ie GO'^Jfc- 310 
Resets f'jrestoijrkd co'cr 

950 p»:e 7e9.i5'=- ■f Cg^g^T ULt^Tia^ii %\ 
II' LI- .^wn w -nhiBJCFi Mr 

Wait for i.'^ut from Keabcard, th«n 

Run 
968 "■ " PRESS ANY ffiY TO PLAY AlSIN "; :p 
OCX 764,255 

970 IF PEEK 764 X>255 THEN RUN 
980 GOTO 970 

Crossl-iairs, 
638 COLOR rPLOT 56,S0^a<ftWTO 105,6e^DRA 
HTO 185,25 PLOT 0.43 QRAWIO 159.43^PL0T 
84,8 DRAWTO 84.79 

640 COLOR 2^F0R U=56 TO 98 S1EP 7 PLOT U 
.56^DRAWT0 U,59^NEXT U FOR U=25 TO 59 ST 
EP e^PLOT lee.U^DRAWTO 104.U^N£,XT U 

Joystick saniplins and X,Y position- 

ins. 
658 SOUfO 2-RMXl»ll+4.8.3 G=G+1 H=«+r 
JS=STICK(8) IF JS=7 GR JS=5 OR JS=6 TfCN 
X=X-1 
668 IF JS=n OR JS=18 OR JS=9 Tk€N X=X+1 
678 IF JS=13 OR JS=9 OR JS=5 THEN Y=Y+1 
675 IF STRIG(0;'=8 TtOI 388 
688 IF JS=14 OR JS=€ OR JS=18 TfCN Y=Y-1 

Distance dnedcina and loopins. 

681 IF L=16 THEN ? ■ CLOSE ENOUGH TO TAR 
GETl fFlK Hflgn - 

682 IF L>28 TtCN > ■ TOO LATE! ! RAH INTO 
kWail'^GOSUe 388 goto 491 

685 L=L+rGOSUB 698 2=1 GOSUB 698 ivDTO 6 
38 

If tKe tarset Pixel is on top of a 
solid line. «ake it a revierse color 

698 CXOR ^LOCATE X.Y.U^F U>0 THEN COL 
OR 4 

Plot center tarset point and trench ua 
lis. 

695 PLOT X.Y^CXOR 3 IF 2 THEN COLOR iZ 
=8 

788 PLOT .X+C,Y+H- DRAWTO X+G.Y-H^ DRAWTO X 
-G.Y-H^DRAWTO X-G.Y+H^ DRAWTO X+G.'i'+H 
718 PLOT 0,0 ^DRAWTO X-G,Y-H PLOT 159.6 
RflWTO X+G,Y-H^PLOT 0,79^DRAWTO .X-G,Y+H^P 
LOT 159.79^DRftJT0 X+G.Y+H 
720 RETURN 

SF.ot was fired- cF*rfc to see if it was 
i-ialid. 

800 IF L<15 Tt€N '■ " FI.RED TOO SOONN":G 

OTO 680 

810 SOUND 1.30.8,3 OHDR' I PLOT 27,79^DR 

AUTO S4,43 ORAl'lTO 137,79^!F X=84 AtC Y=4 

3 THEN 850 

820 ? '■ MLSSEui ' THE UNlltRSE IS DOjflEO' 

!"^GOTO 310 

Thie POKEs reset the cij'sor to the same 

SPOt. 

850 " " THE SHJT !i UJXli ifFOR J=l TO 
9^SaJNLi 1..60.12,4 FOre 84,2:P0K;E 85.2 ' 
"fFlILL UF' t OUT OF TREMOHi i " 

If the -joystick is pulled back, GOTO 
ne>;t section 

860 SOUND 1.122, 12,4IF STICK(e:'-13 T*N 
SOUtlD 1,0. 9,. 9 GOTO S'9e 

Wait loop arri w-arnins 

876 FOR' U=l TO 7^ NEXT 



880 POKE 84.2 POKE 85.2'"- 'T FULL UP 8."an 
IT OP' TREHi^Hi f hEXT .< ■ L=.3e ■ ifjTiJ bIS ' 

® 
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students and professors, small businessmen 
and tycoons, all rave about VIslcalc. Permits you 
to dispense with pencil, paper and calculator — 
Instead, you can tiave an "electronic sheet" to do 
your calculations, projections, and planning. You 
can calculate sales projections, income taxes, 
personal budget, cost estimates, engineering 
changes — even balance your checkbook. VIslcalc is 
partitioned into a matrix of rows and columns. At 
each position in this matrix you can define a titfe, 
formula, or number. By writing on your "electronic 
sheet," you can set up individualized charts, 
tables, and records. For example, you can design 
your own sales forecasting format to assist In 
making the important "What if?" business decisions 
such as: "What would happen if sales increased 
by 10%?" "What if delivery time were decreased 
by two weeks?" "What would be the result if I 
produced 500 widgets this month instead of 600? 
What if I produced 700?" With Visicalc to assist 
you in performing these calculations, you can save 
countless hours. 

Visicalc requires 32K Apple II with one disk drive. 

$149.95 
Now for Atari! Visicalc 32K Disk system, $199.95 
TRS-80 32K Disk system, $95.00 
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Comes with complete, illustrated manual in a three- 
ring binder. Can handle up to four disk drives. DMS is 
written in BASIC, with instructions for writing your own 
programs to use DMS files, including I/O routines. Per- 
mits you to create, add, update, or delete files easily. 
You can search any field for any data, or sort by any 
field. Print reports, selecting any fields in any order, 
and maintain totals and subtotals on any numeric 
fields. You can print mailing labels. Print records 
selectively; for example, only customers with New 
York addresses. Codes printed on the screen refer you 
to the manual for explanation at all times. There 
is a Scan function to report statistically on a file. 
You might ask how many accounts are overdue and receive a report that stated ten records found in 
200 records scanned (5% of a file). DMS automatically tests lineprinter ready state to avoid system 
lockup. Provides printer alignment pattern for labels. A warning is issued If you try to compact data 
without creating a backup (You can ignore the warning). 

Applesoft ROM disk 32K $99.95 (plus $2.00 shipping charge) 
TRS-80 disk 48K $74.95 (plus $2.00 shipping charge) 

Apple version works in conjunction with Visicalc 




6 SOUTH ST., MILFORD, NH 03055 
TO ORDER TOLL-FREE (In NH call 673-5144) 

1-800-258-1790 
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Satisfy your 
craving for 
invasion 
games 



INVASION 3. 

Now you can continue to play this popular arcade game even 
after you run out of quarters! Shoot down the invading aliens, 
but protect your guns from their bombs. 

Great sound and graphics. (Sound requires external amplifier 

16K Level II cassette $9.95 (plus $1 shipping 
32K Disk $14.95 (plus $1 shipping) 





yi 



SUPER INVASION 

Fifty-five aliens advance and shower you with lethal, writhing electric worms. As you pick off the 
aliens one by one, they quicken their descent. They whiz across the screen, wearing away the 
parapets which are your only defense, coming closer and closer to your level. SUPER INVASION is 
the original invasion game with the original moon creatures. 

32K Apple II cassette $19.95 (plus $1 shipping) 

TheSoHw^te Exchange 



6 SoLilh Si , MillDrd, NH O.'iO.S.S (60:il 67:i ,S141 

ORDER TOLL FREE: (In NH call 673 5144) 

1-800-258-1790 
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GAMES 

Adventurss on taps 

by Adventure International {Scott Adams) 

Level II, 16K $14.95 

Choose one! 

Adventureland: Magical beings, perils and puzzles! 

Fun House! Takes all your brains to get past the gate! 

Ghost Town What happens in the Saloon atter Dark? 

Mission impossible; Foil saboteur, save reactor! 

Pirate's Cove: Clue in a blood-soaked book! 

Pyramid ol Doom: Watch out for the nomad! 

Strange Odyssey: Ruins of an alien culture? 

The Count: Protect your neck! Who lives here? 

Voodoo Castle: Remove Count Cristo's curse! 
Advanturat an disk 

by Adventure International (Scott Adams) 
Three-Adventure combinations $39.95 

1) Advanturaland, MIsslen Impassible, Pirate's Cava. 

2) Strange Odyssey, Tha Caunt, Vaodaa Castle. 
by Adventure International (Scott Adams) 
Mini-version of Advanturaland, serves as Introduction. 

Level II. 16K $6.95 

Balrag Samplar 

by Adventure International 

32K, 2 Disks $35.00 

Datastanas af Ryn 

By Automated Simulations 

Cassette $14.95 

Disk $19.95 

Hallfira Warriar (Apshal Saqual) 
by Automated Simulations 

Cassette $24.95 

Disk $29.95 

Journay to tha Canter al the Eirth 
by Ramware ■ Greg Hassett 

Level II, 16K $7.95 

Last Dutchman's Gald 
by Programmers Guild 

Level II, 16K $14.95 

MIcrasatt Adventure 

by Microsoft, as played on PDP-10 

Disk,32K $29.95 

Marlac's Tawar 

by Automated Simulations 

Cassette $14.95 

Disk $19.95 

Rescue at RIgal 

by Automated Simulations 

Cassene $19.95 

Disk $24.95 

Stana af Sisyphus 

by Adventure International 

Disk, 32K $35.00 

Tampla ot Apshai 

by Automated Simulations 

Cassette $24.95 

Disk $29.95 



AMUSEMENTS 

Air Raid 

by Small Systems Software 

Level I or II, 4K $9.95 

Amazin' Mazes 

by Ramware - Robert Wallace 

Level II, 16K $9.95 

AndnM NIm (with saund) 

by Ramware - Leo Christopherson 

Level II, 16K $14.95 

Bairlcada 

by Small Systems Software 

Machine Language $9.95 

Baa Wary (with sound) 

by Ramware - Leo Christopherson 

Level II. 16K $14.95 

ChaHanga 

by Ramware - Richard Taylor, word game (with sound) 

Level II, 16K $9.95 

Coneantratlan 

by Ramware - Randy Hawkins 

Cassette $7.95 
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The Sahw&are Exchange 

market Bosket 

TO ORDER TOLL FREE 

1-800-258-1790 



SOFTWARE 
FOR THE 
TRS-80 



(In NH call 673-5144) 



Dr. Chips 

by Adventure International 

Cassette $14.95 

Duel-N-Draids 

by Acorn Software (Leo Christopherson) 

Cassette $14.95 

Disk $20.95 

Galaxy Invaslan 
by Big Five Software 

Level II, 16K $14.95 

Intaractlva Fictien 

by Adventure International (Robert Lafore) 

Local Call for Death 

Disk $19.95 

Six Micro Stories 

Disk $14.95 

Two Heads of the Coin 

Disk $19.95 

Invaslan 

by Ramware - Chris Freund 

Level II, 16K $9.95 

Disk $14.95 

Kamiiiaze 

by Ramware - Russel Starkey 

Level II, 16K $7.95 

Ufa Two (with sound) 

by Ramware - Leo Christopherson, 

Level II, 16K $14.95 

Olympic Decathlan 
by Microsoft 

Cassette $24.95 

Disk $24.95 

Pantamlneas 

by Ramware - James Garon 

Level II, 16K $7.95 

Sargon 2 (Chess) 

by Hayden (Dan & Kathe Spracklen) 

Level II, 16K $29.95 

Disk.32K $34.95 



EDUCATIONAL GAMES 



Nina Games for Praschoal Children 

by Ramware - George Blank 

Level II, 16K 



. $9.95 



SIMULATIONS 

Airmail Pilot 

by Instant Software 

Cassette $7.95 

Air Traffic Contraliar 

by Sensational Software $9.95 

B-1 Bambar 

byAvalonHill $15.00 

Camputar Bismarck 
by Strategic Simulations 

Cassette $49.95 

Disk $59.95 

End Zona II 

by Ramware - Roger W. Robitaille 

Level II, 16K $9.95 

Midway Campaign 

byAvalonHill $15.00 

North Atlantic Convey 

byAvalonHill $15.00 

Pigskin (Footbill) 
by Acorn Software 

Level 11, 16K $9.95 

Planet Miners 

byAvalonHill $15.00 

Park Barrel 

by Ramware - George Blank 

Level II, 16K $9.95 

Santa Paravia 

by Instant Software (George Blank) 

Level II. 16K $7.95 
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HOURS: 

MONDAY - FRIDAY 

9 AM to 9 PM 

SATURDAY 

11 AM to 3 PM 

'EASTERN TIME 



SPACE GAMES 

Orion Series 

Invasion of Orion 

by Automated Simulations 

Cassette $19.95 

Disk $24.95 

Starfleet Orion 

by Automated Simulations 

Cassette $19.95 

Disk $24.95 

Simutek I 

by Adventure International 

Disk $19.95 

Space Battles 
by Level IV 

Level II, 16K $14.95 

Disk,32K $19.95 

Star Trek 3.5 

by Adventure International (Lance Micklus) 

Level II, 16K $14.95 

Time Trek 

by Personal Software 

Level II, 16K $19.95 

X-WIng Fighter II 

by Ramware - Chris Freund 

Level II, 16K $9.95 

STRATEGY GAMES 

Galactic Empire 

by Broderbund Software 

Level II, 16K $14.95 

Galactic Revolution 
by Broderbund Software 

Level II, 16K $14.95 

Galactic Trader 

by Broderbund Software 

Level II, 16K $14.95 

Galactk: Empire & Trader 
by Broderbund Sofhware 

Disk, 32K $29.95 

Galactic Empire. Ravolutlan, Trader 
by Broderbund Software 

DiSk,32K $39.95 

Kriegsplal II 

by Ramware - Ron Potkin 

Level II, 16K $14.95 

Slag 

by Adventure International 

Cassette $14.95 

Talpan 

by Ramware - Art Canfil 

Level II, 16K $9.95 

Tycoon 

by Ramware - David Bohike 

Level II, 16K $7.95 

Up Parlscopa 

by Ramware - Ron Potkin 

Level II, 16K $14 96 

HVarpath 

by Ramware - Ron Potkin 

Level II, 16K $14.95 

BUSINESS 

Accounts Rocalvaliia (wRh Invoicing) 

by Ramware - Stephen Hebbler 

3 disks, 2 manuals, 2 drives, linephnter $69.95 

Basic Statlsttes 

by Ramware - Steve Reisser 

Level II, 16K $9.95 

CCA Data Managamont System 

by Personal Software 

Ready for transfer to disk, with manual 

Cassette $74.95 -i- $2 



Ctlumn Calculatw 

by David Gray (Ramware) 

16K, Disk J59 95 

Dynamic Data lata 

by Ramware - Kan Knecht 

Manual & 3 Programs 

Disk,32K $39.95 

Hlttagraplt/Scattargram 
by Ramware - Gary Breschini 

Levelll, 16K $9.95 

Invantary 'S' 

by Ramware - Roger W. Robitaille 

Levelll, 16K cassette $24.96 

32K disk, without Invoicing $39.95 

48K disk wlttl invoicing $59.96 

Invantary System 11.3 

by Ramware - M . Kelleher 

Improved version $79.95 

Mail LItt II 

by Ramware (SBSG) 

32K Disk $49.95 

Optlani Manltar 

by W.S. Kutleuer (Ramware) 

16K,Disk $29,95 

PayratI 

by Ramware - Stephen Hebbler 

32Kdisk $39,95 

Vlilcalc 

by Personal Software 

32KDisk $96.00 

Small luslnaas laakkaaplng 

by Ramware - Roger W. Robitaille 
Level II. 16K, with journal 

Disk $36,95 

Cassette $31 ,95 

Without Journal 

Disk $29,95 

Cassette $24.96 . 



SPECIAL PURPOSE 

Bactrsnlc Assistant 

by Ramware - John Adamson 

Levelll, 16K $9.95 

Ham Radla 

by Ramware - M. Kelleher 

Levelll, 16K $9.96 

32K disk, (advanced version) $24.95 

muMATH 
by Microsoft 

32KDISk $74.96 

Stat Pal 

by Bruce Chalmer (Ramware) 

32-48K Disk $29.96 

Superscript 

by Acorn Software 

32KDisk $29.95 



WORD PROCESSOR 

Scripsit 

by Radio Shack 

Disk $95,00 + $2 

Cassette $65.00 + $2 

PERSONAL 

Advancad Parsenal Finance 

by Ramware - Lance Micklus 

32Kdlsk $24.96 

Amateur Astronemy 

by Ramware - George Hall 

Handbook 

Cassette $14.95 

Financial Planner 
by Hayden 

Disk $74.95 

Heme Financial Management 
by Ramware - M. Kelleher 

Levelll, 16K $9,95 

I Chlng/ilarhytlims 

by Ramware - J,T. Philips 

together $9.95 

Interlude 

by Syntonic Software 

Cassette $16.95 

Disk $19.96 

Keybaard ID 

by Ramware - John Adamson 

Levelll, 16K $9,95 

Magic Paper Calculatar 

by Ramware ■ Russell Starkey 

Levelll, 16K $14,95 

ParMlcal Crass Ralaranca 
by Ramware - Dave Stambaugh 

Levelll. 16K $14,95 

32Kdisk $19,95 



Persanal Flnanea 

by Ramware - Lance Micklus 

Levelll, 16K $9,95 

Raets 

by Ramware - Bill Sholar 

32Kdisk $19,95 

RPN CalcuUtar 

by Ramware - Russell Starkey 

Levelll, 16K $9,95 

Secrets af the Tarat/Cards at Ftrtuna 
by Ramware - J,T, Philips 

together $9,96 

Typing Tutar 

by SO JS 

Level II. 16K $19.96 



UTILITIES 

Autamatad Disk DIractary 

by Ramware - George Blank 

32K disk, requires NEWDOS $14,96 

Basic Campllar 
by Microsoft 

48K Disk $196,00 + $3 

Blink 

by Racet Computes $26.00 

Bess 2.1 
by Level IV 

Cassette $29.96 

COMPROC Command Pracassar 
by Racet Computes 

16K, Cassette $19,96 

Cress Ralaranca Utilities 

by Ramware - Lance Micklus 

Level II Cassette version 

RENUMX (XREF with RENUMBER and rescue after reset)-$14,96 

RENUMBER (separately) $7,96 

RENUMBER One version works in 16K. 32K or 48K $7,95 

Disk Sart/Marga 
by Racet Computes 

32K Cassette, Machine Language $75,00 

DOSORT 

by Racet Computes 

32K Cassette $34.95 

48K Cassette, Machine Language $34.95 

Editor Assembler + 

by Microsoft 

16K Cassette $29.95 

STIO III 

by Ramware - Lance Micklus $150.00 

STSD-UC Dadlcstad ta THE SOURCE 

by Ramware - Lance Micklus 

Levelll, 16K $24,95 

System Capy 

by Ramware - Kalman Bergen 

Levelll, 16K $9,96 

T-Shart 

by Web Associates 

Levelll, 16K $9,95 

Tiny Camp: A BASIC Camputar In BASIC 

by Ramware - David Bohike 

Cassette $19,95 

Disk $24,95 

zao Zap Command 

by Quality Software 

Disk $29,95 



LANGUAGE 

APL BO 3,0 

by Ramware - Phelps Gates 

Disk, 32K, Deluxe Version $39,95 

Level II, 16K, reduced features, no course book $14,96 

APL 80 Book, separately $16,95 + $3 

Assembly Language Davelapmant System (A, LOS) 

by Microsoft 

32K, 2 Disks $95,00 + $2,60 

FORTRAN 

by Microsoft 

32K, 2 Disks $96,00 + $2,50 

FORTRAN and A, L. OS $175.00 + $5.00 

Level III BASIC 

by Microsoft $49.95 



SUPPLIES 

Cassettes: 

C-10 $6.96 + $1 

C-20 $7.95 + $1 

Diskettes: 
Dysan (premium quality) 

Box of 5 $29.95 + $1 
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BASF 

Boxol 5 $19.95 + $1.50 

Box of 10 $34.95 + $2 

Case of 100 $299.00 + $3 

Scotch 
Box of 10 $39.95 + $2 

Diskette Storage Box $5.00 + $1 

Flappy Armar* 

Protective envelopes for shipping floppy disks 

5-pack $4.95 + $1 

Floppy Disk Refills $7.95 

Floppy Disk Savers $14. 9S 

SoftSide Vinyl Binders $4.96 + $1 

Tape Recorder Alignment Kit $9.95 

PInball 

by Acorn Software 

Cassette $14.95 

Disk $20.95 

PR Dagflght 

by Ramware - David BohIke 

Levelll, 16K $7.96 

Snake Eggs (with saund) 

by Ramware - Leo Chrlstopherson 

Level II, 16K $14.95 

Super Neva 

by Big Five Software 

Levelll, 16K $14.95 

TRS-80 Opera Theatre (with saund) 

by Ramware ■ Richard Taylor 

Levelll, 16K $9,96 

Tunnels of Fahad 

by Adventure International 

Cassette $9,95 



BOARD GAMES 

Bridge Challenger 

by Personal Software 

Levelll, 16K $19.95 

Crlbbaga 

by Ramware - Roger W. Robitaille 

Levelll, 16K $7.95 

Fastgamman 

by Quality Software 

Level II, 16K $19.95 

Mean Checkers Machine 
by Ramware - Lance Micklus 

Level II, 16K J9.95 

OisK $14,95 

Manly Plays Manapoly 

Cassette $2^.95 

"isk $27,95 
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The 
Ppple Stood 



TO ORDER 

TOLL FREE (orders only) 

1-800-258-1790 

(In NH call 673-5144) 



KEY 



I - Integer BASIC 

M - Machine Language 

(Apple II or Apple 11+) 
A - Applesoft 
ROM - Apple II Plus or Applesoft card only 



Your Apple 11* software market from The Software Exchange 



•OVENTURELAND 

Adventure International 

Cassette/24K/M $14.95 

ADVENTURE COMBINATION #1 

Adventure International 

Adventureland, Pirate's Cove, Missions Impossible. 

Disk/24K/M $39.95 

ADVENTURE COMBINATION #2 

Adventure'lnternational 

Voodoo Castle, The Count, Strange Odyssey 

Disk/24K/M $39,95 

ADVENTURE COMBINATION *3 

Fun House, Pyramid, Gtiost Tovin 

Disk/24K/M $39.95 

ADVENTURE SAMPLER 

Adventure International 

Cassette/24K/M $6.95 

AIR TRAFFIC CONTROLLER 

Sensational Software 

Cassette/16K/M $9.95 

AMBUSH 
Strategic 
Disk 48K/A ROM $59.95 

ANDROID NIM 

Ramware 

Disk/24K/A ROM $17 95 

APPEN I TEXT EDITOR 
Muse 

Cassette/16K/I $17.95 

APPILOT II 
Muse 

Disk/48K/M $99.95 

APPLE 21 

Softape 

Cassette/24K/I $15.95 

APPLELIST'NER 

Softape 

Cassette/16K/I $19.95 

APPLETALKER 

Softape 

Cassette/16K/I $15.95 

ASTEROIDS IN SPACE 

Quality Software 

Disk/32K/M $19.95 

BASEBALL 

Muse 

Cassette/16K/A ROM $14.95 

BEST OF BISHOP 

Softape 

Cassette/16K/I $39.95 

BEST OF MUSE 

Muse 

Disk/16K/I $39.95 

BISMARCK 

Strategic 

Disk 48K/A ROM $59.95 

BRIDGE CHALLENGER 

Personal Software 

Cassette/16K/M $19.95 

CCA DATA BASE MANAGER 

(Works In conjunction witti Visicalc) 

Personal Software 

Disk/32K/A $99.95 + $2 

COMPU-READ 

Edu-ware 

Disk/48K/A $24.95 

COUNT ADVENTURE 

Adventure International 

Cassette/24K/M $14.95 
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DAN'S DISK UTILITIES 

Peripti. Unl. 

Disk/16K/I $39.95 

DATA FACTORY 
Micro-Lab 

Disk/48K/A $100.00 

DATE STONES OF RYN 
Automated Simulations 

Cassette 32K/A R0M/48K/A $14.95 

Disk/48K/A ROM $19.95 

DESK TOP PLAN 

Personal Software 

Disk/32K/M $99.95 

DR. MEMORY 

Muse 

Disk/32K/I $49.95 

DUNGEON CAMPAIGN 

Synergistic 

Cassette/16K/I $14.95 

Disk/32K/I $17.50 

EDITOR ASSEMBLER 

Hayden 

Disk $49.95 

ELECTRIC CRAYON 

Muse 

Cassette/16K/M $17 95 

ENGINEERING MATH TAPE I 

Hayden 

Cassette/24K A/16K A ROM $14.95 

ESCAPE 

Muse 

Cassette/16K/I $12.95 

FASTGAMMON 

Quality Software 

Cassette/16K/M $1995 

FORM LETTER 

Peripherals Unlimited 

Disk/48K/A ROM -. $24.95 

FORTE 
Softape 

Cassette/ 16K/M $19.95 

FORTH II 
Softape 
Disk $49.95 

GAUCTIC EMPIRE 

Broderbund Software 

Disk/48K/A $2495 

GAUCTIC REVOLUTION 

Broderbund Software 

Disk/48K/A $2495 

GALACTIC TRADER 

Broderbund Software 

Disk/48K/A $24.96 

GENERAL MATH TAPE I 

Hayden 

Cassette/24K A/16K A ROM $14.95 

GHOST TOWN ADVENTURE 
Adventure International 
Cassette/24K/M $14.95 

GLOBAL WAR 

Muse 

Cassette/32K/A ROM $17.95 

Disk/48K/A ROM $24.95 

HELLFIRE WARRIOR 

Automated Simulations 

Disk $29.95 

HIGHER GRAPHICS 

Synergistic Software 

Disk/32K/I $24.95 
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HIGHER TEXT 

Synergistic Software 

0isk/24K/M $35.00 

HIRES MYSTERY HOUSE 

On Line Systems 

Disk/48K/M $24 95 

INTERLUDE 

Cassette 16K/I $16 95 

Disk/32K/I $19.95 

INVASION OF ORION 
Automated Simulations 

Cassette/3 K/A R0M/48KA $19 95 

Disk 48K/A ROM $24.95 

LOST DUTCHMAN'S GOLD 

Programmers Guild 

Cassette/24K/A ROM $14 95 

MAGIC PAINT BRUSH 

MP Software 

Disk 32K/A ROM $2995 

MAILING LIST 

Peripherals Unlimited 

Disk/48K/M $39.95 

MAILING LIST DATABASE 

Synergistic Software 

Disk/48K/A $34.50 

MAZE GAME 

Muse 

Cassette/16K/I $12.95 

MICROSOFT ADVENTURE 

Microsoft 

Disk32K/M $29.95 

MISSION IMPOSSIBLE 
ADVENTURE 

Adventure International 

Cassette /24K/M $14.95 

MODIFIABLE DATABASE 
Synergistic Software 
Disk/48K/A ROM $79 50 

MONTY PLAYS MONOPOLY 

Personal Software 

Cassette/16K/M $24 95 

Disk/32K/M $27.95 

MORLOC'S TOWER 

Automated Simulations 

Cassette/32K/A R0M/48K A $14 95 

Disk/48K/A ROM $19.95 

MUSIC BOX 

Muse 

Cassette/16K/M $12.95 

MYSTERY FUN HOUSE ADVENTURE 

Adventure International 

Cassette/24K/M $14.95 

PIRATE'S COVE ADVENTURE 

Adventure International 

Cassette/24K/M $14.95 

PORK BARREL 

Ramware 

cassette/24K/A $9.95 

PROGRAM LINE EDITOR 

Synergistic Software 

Ol^sk/24K/M $4000 

PYRAMID OF DOOM ADVENTURE 

Adventure International 

Cassette/24K/M $14.95 

RESCUE AT RIGEL 
Automated Simulations 

Cassette/32K A R0M/48K A $19.95 

Disk 48K/A ROM $24.95 



SXRGON II 

Hayden 

Cassette/24K/M $29.95 

Disk/24K/M $34.95 

SCREEN MACHINE 

Cassette $19.95 

Disk $29.95 

SPACE WAR/SUPER INVASION 

Sensational Software 

Disk $29.95 

STARFLEET OF ORION 

Automated Simulations 

Cassette/16K/I $19.95 

Disk 32K/I $24.95 

STIMULATING SIMULATIONS 

"''"'^" $5.50+$1 

STRANGE OOYSSEY ADVENTURE 

Adventure International 

Cassette/24K/M $14.95 

SUPER APPLE BASIC 

Hayden 

Disk $39.95 

SUPER INVASION 

Sensational Software 

Cassette/32K/M $1995 

SUPER-TEXT 

Muse 

Disk/48K/A flOM $99.95 



TEMPLE OF APSHAI 

Automated Simulations 

Disk 48K/A ROM $29.95 

TEXT EDITOR 

Periph Unl. 

Disk/48K/A ROM $64.95 

THE WIZARD AND THE PRINCESS 

On Line Systems 

Disk/48K/M $32.95 

THREE-D 

MP Software 

Disk/48K/A ROM $29.95 

THREE MILE ISUND 

Muse 

Disk/48K/I $3995 

UDRAW I 

Muse 

Cassette/16K/M $17.95 

U-DRAW II 

Muse 

Disk/32K/ M $39.95 

UNCLE SAM'S JIGSAW 

Muse 

Cassette/32K/A ROM $12.95 

VISICALC 

Personal Software 

Dlsk/32K/M $149.95 + $2 



VOICE 

Muse 

0isk/48K/M $39.95 

VOODOO CASTU ADVENTURE 

Adventure International 

Cassette;24K/M $14.95 

WILDERNESS CAMPAIGN 
Synergistic Software 

Cassette/48K/I $17.50 

Disk/48K/I $19 95 

WILDERNESS S DUNGEON 
CAMPAIGNS 

Synergistic Software 

Disk/48K/I $32.50 

WINDFALL 

Edu-Ware 

Cassette/32K/A $14.95 

Disk/32K/A $19.95 

B-1 NUCLEAR BOMBER 

AvalonHill $1500 

MIDWAY CAMPAIGN 

Avalon Hill $15.00 

NORTH ATLANTIC CONVOY RAIDERS 

Avalon Hill $1500 

NUKE WAR 

Avalon Hill $15.00 

PLANET MINERS 

Avalon Hill $15.00 
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B502 GOURMET GUIDE & COOKBOOK 

by Robert Findley (Hayden) $12.95 +$1 

APL - An imeractlvi Approich 

by Gilman ana Rose (J. Wiley & Sons) $16.95 + $3 

Background Mith for a Computer World 

by R Ashley (Wiley) $7.95 + $1 

BASIC for Home Computors 

byAlbrectit. Finkel. & Brown (Wiley) $7.95 +$1 

Basic Handbook 

by Dr. David A. Lien (Compusoft) $14.95 + $1 

Calculations with BASIC 

by Sceibi Publications $8.95 + $1 

Choss & Computers 

by David Levy (CSP) $9.95 + J1 

Consumor's Gulda to Personal Computing & Microcomputors 

by S. Freiberger & P. Chew (Hayden) $8.95 + $1 

CP/M Summary Guide 

by Rainbow Associates $3.75 + $1 

Learning Laval II 

by Dr. Oavid A. Lien (Compusoft) $15.95 + $1 



Loarn Microcomputors 

by Sceibi Publications $14.95 + $1 

Microcomputer Potpourri 

by Sceibi Publications $3.95 + $1 

PASCAL An Introduction to Methodical Programming 

byW.FIndlay&D.A. Watt (CSP) $12.95 + $1 

Pathways through the ROM 

by SoftSlde Publications $19.95 + $1 

Personal Information Management System 

by Sceibi Publications $1 1 .95 + $1 

Sargon Handbook 

by Don &KattieSpracklen (Hayden) $15.95 + $1 

Secret Guide to Computers 

by Russ Walters (Sceibi Publications) $5.95 + $1 

Structured BASIC i Beyond 

by W. Amsbury (CSP) $10.95 + $1 

Take My Computer, Please! 

by Sceibi Publications $5.95 + $1 

Ten Easy Plecos 

byH.Sagan&C. Meyer (Hayden) $7.95 + $1 



The LIttIo Book of BASIC Stylo 

by John Nevision (Addison Wesley) $5.95 + $1 

The Mind Appliance 

by T.G. Lewis (Hayden) $9.55 + $1 

TRS-BO Assembly Language Programming 

by William Barden Jr. (Radio Shack) $3.95 + $1 

TRS-80 BASIC 

byAlbrechI, Inman, &Zamora (Wiley) $8.95 +$1 

TRS-BO Disk and Other Mysteries 

by Harvard Pennington (I.J.G. Inc.) $22.95 + $1 

TRS-80 Interfacing 

by Jonathan Titus (Howard W. Sams Inc.) $8.95 + $1 

Understanding Microcomputers 

by Sceibi Publications $9.95 + $1 

Z-8Q and B080 Assembly Language Programming 

by Kathe Spracklen (Hayden) $7.95 + $1 

Z-BO Instruction Handbook 

by Sceibi Publications $5.95 + $1 

Z-80 Software Gourmet Guide i Cookbook 

by Sceibi Publications $15.95 + $1 



• No sales tax. 

• All C.O.D. or special 
delivery orders are a minimum 
of $5.00 for special handling. 
For more detailed descriptions of 
our software and supplies send 
for tfie TSE Catalogue - its FREE! 
Write or call today for your copy. 

P.O. Box 68, Milford, NH 03055 
TOLL-FREE (in NH call 673-5144) 

1-800-258-1790 

All prices are subject to change 

without notice. The Software 

Exchange is not responsible for 

typographical errors, including 

prices. 
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TO CORRECT OR CHANGE YOUR 

ADDRESS ATTACH LABEL FROM YOUR 
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COMPUTER AIDED 
^ DRAWING AND DESIGN 



by Joan Truckenbrod 

ROTATION TECHNIQUES 
Part I 

Figure rotation is one of the 
basic methods used in computer 
graphics for transforming shapes 
and forms. There are many 
apphcations for rotated figures in 
creating visual compositions and 
animated sequences. A toy top is a 
good example of an object rotating 
in place as it spins around on the 
center post. A car making a U-turn 
is rotating around a point. The 
reflector on a bicycle wheel rotates 
around the hub of the wheel as the 
bike is pedalled. These examples 
are representative of one type of 
rotation, in which the objects are 
revolving around a point, that is, 
an axis perpendicular to a flat 
plane. Figures or objects can also 
rotate in other directions. A boat 
on the ocean, for instance, can 
rotate around three different axes, 
one axis is running through the 
center of the boat lengthwise, one 
axis through the center of the boat 
crosswise, and a third running 
through the center of the boat 
perpendicular to the horizontal 
deck. A boat can rise and fall in 
the water sideways, backwards and 
forwards, as well as revolving 
around in a circle on top of the 
water. This article will discuss the 
first type of rotation in which a 
figure is rotated around an axis 
that is perpendicular to the 
drawing plane. The next article 
will discuss two additional types 
of rotation, in which the axes 
are flush with the drawing plane 
and the figures can be rotated in 
three-dimensional space in various 
directions. 

In the first type of rotation, the 
video screen will be the drawing 
plane and the axis of rotation will 
be perpendicular to this screen. 
Rotation of a figure around this 
axis changes the orientation and 
possibly the position of the figure, 
but not the shape of the figure. To 
visualize this change in the 
orientation of rotated figures, write 
your name on a piece of paper, lay 
the paper flat on the table, and 
then turn the paper around. As 
you turn the paper around, the 
74 



appearance and legibility of your 
name changes. 

The basic element of the 
rotational process is the axis of 
rotation. The rotated figure 
revolves around a point on the 
screen that represents this axis. 
This point is analogous to the hub 
of a wheel or the center of a 
pinwheel. In using the 
microprocessor, the center point is 
the intersection point of the 
perpendicular axis of rotation and 
the video screen. Figures on this 
screen are defined by X and Y 
coordinates. The rotation formula 
is applied to all of the points 
defining a figure, and the rotated 
figure is drawn on the screen. With 
the use of FOR/ NEXT loops any 
number of sequentially rotated 
figures can be created and drawn. 
The rotation formula rotates all 
figures in a counter-clockwise 
manner, around a specified center, 
beginning with the position of the 
figure on the screen. The basic 
formula for this type of rotation is 
as follows: 

X and Y arrays contain the 
coordinates defining the figure or 
shape 

A = the angle of rotation. 

R = A/ 57 .2958 (translation of 
angles into radians). 

XC = the X coordinate of the 
desired center point. 

YC = the Y coordinate of the 
desired center point. 

Rotated X =(X(I)-XC*COS 
(R)+(Y(I)-YC)*SIN(R)+XC 

Rotated Y =(Y(I)-YC)* COS(R)- 
(X(I)— XC * SIN(R) + YC 

There are various ways to apply 
this formula to achieve different 
visual effects. Figures can be 
rotated in place, or they can be 
rotated and redrawn in a circular 
path on the screen. 

SUPERIMPOSED ROTATION 

Rotation of a figure in place is 
like a ballerina twirling around on 
her toe. This type of rotation 
consists of identifying the center 
location of the given figure and 
rotating the figure on that point. 
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The axis of rotation is positioned 
in the middle of the figure and the 
figure is spun around that axis like 
a pointer on a game dial. The 
figure or shape is coded in X and 
Y coordinates in the desired 
location on the screen. The center 
point of the figure is calculated by 
a routine listed in the sample 
program in subroutine 3000, and 
the X and Y values of this point 
are assigned to XC and YC. The 
angle of rotation is established by 
the value assigned to A in the 
FOR/ NEXT loop in line 95 of the 
sample program. The number of 
rotated figures is controlled by the 
limit set in this loop in 
coordination with the step value. 
This program line will cause the 
figure to be drawn five times, 
incrementing the angle of rotation 
by ten degrees each time. 

FOR A = to 40 STEP 10 

The rotated figures can be 
sequentially drawn on top of one 
another as illustrated in figure 1, or 
the screen can be erased prior to 
the drawing of each new figure. 




Figure 
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ROTATION AROUND A NEW 
CENTER 

A figure or shape can also be 
rotated around any point inside or 
outside the figure, within the Hmits 
of the screen or beyond these 
limits. Rotation around an external 
point creates a circular path or arc 
of figures on the screen. This 
circular path will begin at the 
original location of the figure. If 
the external point is within the 
central area of the screen, a circle 
will be constructed by the rotating 
figures. An example of this is 
shown in figure 2. If the point is 
outside of the limits of the screen 
or on the perimeter of the screen, 
an arc will be constructed as 
illustrated in figure 3. Otherwise, in 
specifying the location of a point 
of rotation, carefully coordinate 
the location of the center with the 
original location of the figure to 
avoid exceeding the limits of the 
screen as the figure is rotated and 
redrawn. 

SAMPLE ROTATION 
PROGRAM 



asT 

5 REN PTOGRAN BV J. TRUCKENBROD 

20 REM THIS PR0GRW1 FACIUTATES 
ROTATION OF A FIGURE ON THE 
SCREEN IN mSS. HAYS. 

25 FLAG = 

27 REM M> REPRESENTS THE NUMBER 
OF POINTS IN THE FIGURE TO 
BE ROTATED 



30 fP = 5 

10 DIM X(M>),Y(NP) 

50 FOR I = 1 TO NP 

60 READ X(I),Y(I) 

70 NEXT I 

75 REM THE DATA STATEMENTS CONT 
AINS 1\£ COORIDINATES THAT D 
EFINE THE SfWE OR FIGURE. 
THESE COORDINATES MUST BE CA 
REFULLY PLANNED TO CORRESPON 
D TO THE TYPE OF ROTAHON DE 
SIRED, 

77 REM FIGURE IS COOED IN DESIR 
ED LOCATION FOR ROTATING A F 
IGURE IN PLACE OR FOR THE BE 
GINNING OF A CURVED PATH. 

80 DATA 135,17(1, H5,17fl, 115,180 
,135,180,135,170 

85 HOME : PRINT 

86 PRINT "WHICH TYPE OF ROTATION 

MOULD YOU LIKE TO SEE?" 

87 PRINT : PRINT "1. ROTATE IN P 

LACE" 

88 PRINT : PRINT "2. CHOOSE A NE 

U CENTER FOR ROTAHON" 

89 PRINT : PRINT "3. ROTATE AROU 

W) THE ORIGIN (0,0)" 

90 PRINT J IWUT C 

92 ON C GOSUB 3000,3100,3200 

91 HGR2 ; HCOLOR= 7 

95 FOR A = TO 350 STEP 10 

100 R = A / 57.2958 

150 GOSUB 1000 

190 NEXT A 

200 END 

1000 REM DRAWING SUBROUHNE 

1005 I = 1 

1010 GOSUB 2000 

1015 F FLAG = THEN GOTO lOZO 

1017 HGR2 

1020 mm NX,NY 

1030 FOR I = 2 TO NP: GOSUB 2000 

1010 IFLOT TO NX,NY 
1050 fCXT I 
1060 RETURN 



2000 REM ROTAHON SUBROUTINE 

2010 NX = (X(I) - XC) I COS (R) + 
(Yd) - YC) I SIN (R) + XC 

2020 NY = (Yd) - YC) I COS (R) - 
(Xd) - XC) I SIN (R) + YC 

2035 F NX > 279 GOTO ZOO 

2036 F NY > 191 GOTO 100 

2037 F NX < GOTO 200 

2038 F NY < GOTO 210 

2010 RETURN 

3000 REM SUBROUHNE TO CALCULAT 
E TJC COffER POINT OF THE FI 
GURE. XC AND YC 

3005 REM FIGURE IS ROTATED IN P 
LACE 

3010 XS = 280:YS = 192:XL = OJYL = 


3020 FOR J = 1 TO NP 

3030 F X(J) < XS THEN XS = X(J) 

3010 F X(J) > XL THEN XL = X(J) 

3050 F Y(J) < YS TtCN YS = Y(J) 

3060 F Y(J) > YL THEN YL = Y(J) 

3070 NEXT J 

3080 XC = (XS + XL) / 2:YC = (YS + 
YL) /2 

3085 FLAG = 1 
3090 RETURN 

3100 REM SUBROUTINE TO IDENTIFY 
fEW CENTER FOR ROTAHON OF 
FIGURE. FIGURE IS ROTATED A 
ROUND THIS NENLY ESTMJSHED 
CENTER. 

3110 INPUT "TYPE IN TfC X AM) Y 
COORDDWFS OF THE PODfT YOU 
Vm THE FIGURE ROTATED MtO 
IH).";XC,YC 

3120 RETURN 

3200 REM FIGHURE IS ROTATED ARO 
UM) ORIGIN OF Ti£ GIVEN COOR 
DINATE SYSTEM IN THE UPPER L 
EFl-WW) CORiER OF THE SCREE 
N. 

3210 XC = o:yc = o: return Q 
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SPECIAL 
DELIVERY 

with 

EXTRACT 

A 100% Mjichine Ljingudge Word Processor from: 



We can't \top improving ami expanding the 

capabilities oi your JRS—SO* By using SPfCMt 

Dft/VfRY with EXTRACT and either [lectric Pencil* 

or Radio Shack's Scripsit* you can get even more 

out of your computer. From just one package you 

will get all this: 



MAILFORM 

Create MAILFILE: The ONLY complete ndme and 

address list entry/editor program written in 

machine language. 



MAILRITE 

Print letters written with either the Electric Pencil' 

Of Radio Shack's Scripsit' inserting information 

from a MAILFILE into the letter for personalizing 

and addressing. 



EXTRACT 

Take out information from the MAILFORM, the 

machine language mailing list. Find the names you 

need by Zip Code, Street Address, Gender, Age or 

any other way! 



SORT 

In-Memory sort on an entire address list using any 
field as the key. 



LABEL 

Prints labels from MAILFILE 



CONVERT 

Make MAILFILE from RS mail list. 



SPfCME DELIVERY will run on ynur TRS-SO' wilh 
TRSDOS'. NEWDOS' or any other TRS' - like 
DOS 

$125.00 



The 
Sahvyare Exchange 

6 South Street. Milford. NH 03055 
ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 • 



INT(X-NX$IN(X"2U) 
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Surprised? You should be. 
Because until now, no 
software could solve anyttiing 
but the most basic arithmetic 
problems without a series of 
complicated steps. 

A big disadvantage? If you 
use a microcomputer for 
scientific, educational, or 
engineering applications, you 
bet it is. That's why Microsoft 
has come up with a solution of 
its own. muMATH. 

muMATH is a symbolic math 
package you'll recognize 
immediately as a major 
advance in microcomputer 
software. 

muMATH lets you efficiently 
and accurately perform the 
most ocmplex mathematical 
operations: Exact, Infinite 
precision rational arithmetic. 
Unbound variables. Complex 
expressions (even equations 
may be included). Exact 
solution of algebraic equation. 
Plus logarithmic, exponential 
and trigonometric 
simplifications and 
transformations. 

That's right. It does in an 
instant what took you years to 
learn at school. Rational 
arithmetic. Algebra. 



Trigonometry. Transcendental 
functions. Symbolic 
differentiations (including 
ordinary and partial 
derivatives.) Symbolic 
Integration of Indefinite and 
definite integrals. Matrix 
arithmetic and algebra. 

Trigonometric 
simplifications? But of course. 
Just type: ?SIN(2'Y) ' 
(4"COS(X) 3 - 
COS(3'X)=SIN(Y) * 
C0S(X=Y=#P1) - COS(X-Y); 
Then instantly muMATH 
returns: 
@4*SIN(Y)*C0S(X) ♦ COS(Y). 

Adding fractions? Need you 
ask? 

?1/3=5/6=2/5=3/7; 
@41 9/210. 

muMATH is written in 
muSIMP, which is included in 
the muMATH package. 
muSIMP is an applicative, 
recursive langauge, ideal for 
describing complex 
mathematical concepts. 

Because of its highly 
interactive nature and 
hierarchical structure, 
muMATH is an excellent math 
teaching device, from simple 
arithmetic to calculus. 

$74.95 + $3 



The Software Exchange 

ORDER TOLL-FREE: (in NH call 673-5144) 

1-800-258-1790 




CP/M is a registered trademark of Digital Rasearch- 
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FORTFflN 
PACKAGE 



FORTRAN Compiler 
LINK-80 Linking Loader 
EDIT-80 Text Editor 
FORUB Runtime Library 
Complete documentation 



For TRS-80 users who want FORTRAN programming capability 

Because FORTRAN is a popular language that has been around a long time, and because 
Microsoft's TRS-80 FORTRAN Is an ANSI Standard FORTRAN, users will instantly have access to 
the vast number of applications programs already written in FORTRAN. After all, FORTRAN is the 
standard language used throughout the industry for scientific, mathematical, engineering, 
statistical and modeling programs. FORTRAN is probably the answer if Level II BASIC has 
presented any limitations for your applications. For instance; it's easy to interface directly to 
machine language subroutines , double precision scientific functions are included, FORTRAN can 
support any I/O device, and because it's a compiler, FORTRAN is faster (3-10 times faster!) than 
BASIC. Floating point and I/O subroutines from FORTRAN'S library may be incorporated in 
subroutines, plus users can create their own library of the subroutines used most often. Using the 
text editor and linking loader, data files and FORTRAN files can be created and edited, loaded 
and linked together— that means much more extensive use of the TRS-80 disk hardware. 

The TRS-80 FORTRAN Package is fully compatible with TRSDOS. The TRS-80 FORTRAN 
compiler can compile approximately 1200 lines per minute in a single pass and requires a 
minimum 32K TRS-80 disk system. The compiler generates a fully symbolic listing of the machine 
language that is generated— a great way to learn assembly code! At the end of the listing, the 
compiler produces an error summary and tables showing the addresses assigned to labels, 
variables and constants $95.00 + $2.50 



IVIACRO-80 IMacro Assembler 
LINK-80 Linking Loader 
EDIT-80 Text Editor 
CREF-80 Cross Reference Facility 
Complete documentation 



ASSEMBIY 

LANGUAGE 

PACKAGE 



For TRS-80 users who want assembly language programming capability 

The TRS-80 Assembly Language Development System from Microsoft is the perfect, low-cost 
package to help you get started with assembly language programming. 

The macro assembler accepts Z-80 op-codes and supports a complete Intel standard macro 
facility including IRP, IRPC, REPEAT, local variables and EXITM $95.00 -I- $2.50 

SPECIAL PRICE 



Buy both and save $15.00 
Regular price for both $190.00 
Combination price $175.00 -t-$5.00 
SAVE $15.00 



Ihe Scitware Exchange 



6 South St . MiKord. NH 03055 

TOLL FREE 1-800-258-1790 
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Attention 

BARGAIN HUNTERS 

Receive Hundreds of Classified Ads 
Like These Every Month 



HARD DISK DRIVE Diablo Mod 31 
1.2 MByte std. density Includes 
power supp. and cable, rack mount 
slides, amd manual. Excellent 
_ condition. $450. C^ i— ^601 
HLs--i<^3-^T7« CPS Serial ^3 



^T'Ar.uhXe ^^"'1^'^ '-'""■' same 

c/JThEATHKIT H-11/DEC LSI-11 

V'l system, 32K Byte storage, reader 1 

,col punch, video terminal, complete 

^ soHware. Cost $4500 assembled, 

$3500 kit. Like new. Sell for $2250. 

305-962-6677. 2058 Griffin Rd., Ft. 

Lauderdale, FL 33312. 



7?U m"^ '"'"u^"'" (Perkin-Elmer) 
7/16 Mm, with 32KB core from 
pane, 50A PWR supply. ,JX 

HS tape reader interfaces for LP, 2 

-;i.rbie?i^.^.r'i:- 

^^'^^^li^iiimRA^MATlON ALPHAI 

16; 16 k-word core -^/^"^'^I.^' 
PF-R Modified Mod. ASR-33 TTY 
Manuals, utilities, assemblers an. 
many option boards - 16 b,t I/O 
Driver, 16 bit I/O, Asynch modem 

contr 64 bit output, 10 b.t A/D - 
D/A Fairly complete documen- 
tation Up and running m Fortran. 
Not much more than TTY at 51000 
Herb Sauer, 303-494-8724. 



FOR SALE: Heath H9 video ter- 
minal, excellent condition, $175 or 
best offer. You ship. [214] 962-4484 

rnemory board without memory 
(;^'_t^^ssembledor not working) . 

K'fa' cassette.; n^ ' *1.100 

dt'T ^°-p'S wf /'" '^^^ 

p",f e software an!( '°'*^^^e. real 



COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the latest infor- 
mation on personal, small business and large-system 
computers, accessories and software. 

Each ad-packed issue is full of bargains you are 
looking for. Included are ads from individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market. 

But, COMPUTER SHOPPER'S bargains won't be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation. 

Whether you are a hobbyist or a part-time user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace in time for you to take advantage of bargain oppor- 
tunities. 

Have something to sell? A COMPUTER SHOPPER subscriber pro- 
bably wants to buy it. 

Looking for a part, component or even a complete system? A 
COMPUTER SHOPPER subscriber probably wants to sell it. 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy. 

COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location of specific items. Combining 
this with low individual ad rates — 10 cents a word — 




makes it the ideal place for buyers and sellers to com- 
municate. And, its mix of individual, dealer, and 
manufacturer ads enable subscribers to find what 
they want at the best price possible. 

COMPUTER SHOPPER will work for you in other 
ways, too. If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision. And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you. 

BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe. 

Want to look us over first? We'll give you your first issue FREE 
and then bill you for the next 12. If you are not convinced COM- 
PUTER SHOPPER suits your needs, just write "cancel" on the in- 
voice and return it. 

And, to let COMPUTER SHOPPER start working for you right now, 
with a paid subscription we'll also give you a FREE classified ad to 
sell your pre-owned equipment or to find equipment you want. 

If you don't need to use the free classified ad now, use it anytime 
during your subscription. 

Subscription: $10/year, 12 issues plus your first free one. Bank 
cards accepted. Money back guarantee. 



fi * The Nationwide Marketplace for Computer Equipmer)t 

/jr=' P.O. Box F26 • Titusville, Florida 32780 
® Telephone 305-269-321 1 

MasterCharge or VISA orders only, call TOLL FREE 800-327-9920. 
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LOWER to UPPER 




CONVERSION 



LOWER TO UPPER 
CONVERSIONS is for S-80 disk 
systems. 

by Robert F. Nicholas 

Ever since I had a lower case 
modification added to my 
computer, I've been writing just 
about everything in upper and 
lower case. It makes programs 
much easier to read while 
debugging. Text stands out clearly 
from the rest of the BASIC 
commands. 

However, it seems that most 
software publishers and magazine 
editors prefer line listings to be in 
the normal all-upper case mode. 
This is reasonable since that's what 



most computer hobbyists have at 
the present time. (Obviously if the 
lower case capability is necessary 
to the proper functioning of the 
program for some reason, then that 
would be acceptable.) 

As a result, before I submit 
anything for consideration, I have 
to convert all of the lower case 
back to upper case. One way 
would be to do it by hand. Rather 
ridiculous considering that the 
computer can do it quite nicely. 

The following program does just 
that. Save a copy of your program 
to be converted in ASCII format. 
For example, if your program is 
named"TREK79, "then save 
another version by typing 
SAVE"TREK79/ASC,"A. Be sure 



you end up with your original 
program and a second version of it 
in ASCII. 

Now run the conversion program 
and answer the questions when 
prompted. It will load your ASCII 
version in line-by-line, scan for any 
lower case, convert them to upper, 
indicate how many it's found so far 
and then save the program to disk 
again in the process. When it's all 
done, it will load the converted 
program in for you to review and 
resave to disk in non-ASCII 
format, if you desire. 

(Note: At SoftSide we run our 
listings directly from working 
copies of programs, and we do 
have lower case capabilities -Ed.) 



10 REM LOWER TO UFfER CONVERSION 

20 f&, RIKERT F. NICHOLAS 

30 REM 07/07/80 

10 CLS:CLEflR2000 

50 PRINT" THIS PROGRAM TAKES A EiASIC PROGF:AM SAVED IN ASCU 

FORMAT 

60 PRINT"HHICH HAS SOME LOWER CASE LETTERS IN IT AND CONVERTS AL 

L OF THE 

70 PRINTTOHER CA^ TO UFfER CASE," 

80 PRINT" T« RESU.TING PROGRAM WILL ALSO BE IN ASCH FORMAT 

t 

90 Fi;:INT"SIMPLY LOAD IT INTO YO'JR COMPUTER AND SAVE IT BMX AGAI 
N AS A 

100 print"normal eiasic program." 

110 print:inpi;t"enter the prijgram to ee converted" ;fi» 

120 PRINT:iNFt;T"WWT SfWLL I CALL THE F£SULTING F1«)GRAM.";F2$ 



130 a.s:x=o:pRiNTMi8,"NUMEG;; OF coNVERSIO^e maoe;";:printm80,x 

HO OPEN"r',l,Fl* 

150 0FEN"0",2,F2$ 

140 LINEINFUT#1,22$ 

170 F0RZ2=lT0LEN(Z2t) :Z3=ASC(MID$(Z2$,Z2,1))!IFZ3>9(WW)Z3<123THE 

NMID*(Z2$,Z2, 1 )=CHR$(Z3-32) :X=X+1 :F1<INTIM80,X; 

180 NEXT 

190 F'RINT»2,Z2* 

20 IFEOF ( 1 ) THENaOSE .* G0T021 0ELSE160 

210 CLS:PRINTF2$" HAS E€EN SAVED IN ASCH." 

220 F1?INT:PRINT"I am now LOADING IT IN." 

230 PRINT"L0OK IT OVER AM) THEN SAVE IT TO DISK IN NON-ASCn FDR 

MAT 

210 f-rint"if you wish. 

250 L0ADF2$ ^ 



VTOS 4.0 

VIRTUAL TECHNOLOGY, INC. 

Operating System Diskette with Operator's Guide 



Supports Large (8") drive, Double Sided drive, Double 
Density drive, 80 Track drive, and Winchester technology fixed 
drive. Supports double-speed processor clock modifications. 

Features include: Improved overlay structure. General 
purpose output spoolers, Keyboard Type-ahead, User 
definable keys. Built-in Graphic string packer (lets user enter 
graphic symbols into a BASIC program from the keyboard 
through the use of the CLEAR key). Dated file, Marked files. File 
transfer by class, Built-in SYSTEM command containing lower 
case display driver, NonBREAKable AUTO and CHAIN 
commands, Wild-card DIRectory (permits user to locate all files 
of a certain classification such as '/BAS'), ALLOCate command 



for pre-allocation and non-releasability of file space, and 
MEMORY command for directly setting upper memory limit. 

User may SYSGEN a custom VTOS system configuration 
containing special I/O drivers, device LINKing and ROUTEing, 
SPOOLing and DEBUG tasks. 

Dynamic file name defaults in APPEND. 

COPY and APPEND commands execute up to 300% faster. 

Variable Length file support is incorporated which 
automatically blocks short user data records both within a 
sector and across sector boundaries, thereby taking maximum 
advantage of disk file space. 

No security disk needed to make backups or to run the 
system $99.95 



The Software Exchange 

ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 
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STAR 
TREK 




ALL NEW VERSION! 

Now with Sound Capability 
and Increased Speed of 

Execution. 

You are in command of the 

starship Enterprise and her 

complement of 371 officers 

and crew. You must enter 

and explore the Omega VI 

region of the galaxy with its 

192 quadrants containing star 

systems and planets (a few of 

which are habitable). 

Astronomical hazards such as 

pulsars, Class stars, and 

black holes are known to be 

present in the region. Klingon 

battle cruisers are also 

present, so the utmost care is 

needed. 

Star Trek III. 5 includes: 

playboard 8 by 3 by 3 

quadrants; weapons system 

of Phasers and Photon 
Torpedos; Warp and Impulse 
power systems; Science and 
Ship's computers; Long and 

Short Range sensors; 
Damage Control and Status 
reports; and 20 Klingon battle 
cruisers, and 100 stars, 
planets, black holes, and 
pulsars. 
Available on Digital 
Cassette for Level II, 
16K $14.95 



The 

SoiH%are 

Exchange 



6 South Street, Milford, NH 03055 
TO ORDER TOLL-FREE: 

1-800-258-1790 

lln MH call 673-5144) 
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ANDROID NIM 



The newest version of TRS-80's first animated graphics game — 
droid NIM — now with more animation and sound! Level II. 
$14.95 



An- 
16K 



BEE WARY 



This fast-paced real time action game is a contest between a Bee 
operated by the player and a Spider operated by the computer. 
Machine language subroutines, but loads as Level II for easy opera- 
tion. $14.95 



SNAKE EGGS 



Here is a computerized reptilian version of 21 complete with arrogant 
snakes and appropriate sound. Level II 16K. $14.95 



LIFE TWO 



Two in one: Game of Life, at an astounding 100 generations a minute, 
plus Battle of Life with animated creatures and sound. Level II 16K. 
$14.95 



DUEL-N-DROIDS 



You are the Fencing Master and all you need to do is train your An- 
droid by making him duel the machine's androids. After he is train- 
ed, enter him in the Tournament and sit back and enjoy the fun. 
Features included in this game are: sound effects, extensive graphic 
displays & multiple playing levels. Level II, 16K Cassette $14.95 
Disk $20.95 




The Sahware Exchange 

TOLL FREE 1-800-258-1790 nn nh »ii 073 si44i 
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Games from BIG FIVE will TRS"80 

tum your computer into a |-lf^|V/|p AROAnF 



SUPER NOVA 



© 




"Huge ASTEROIDS have invaded the 
galaxy! Your mission is to destroy them 
and the alien saucers before they de- 
stroy you!" Our #1 top selling game! 

$14.95 16K Level I or II 



AHACK FORCE 



© 




"Eight alien ramships are warping down 
toward your destroyer ship. You must 
shoot them down quickly before they 
crush you!" With sound! 

$14.95 16K Level I or II 



GALAXY INVASION 



© 




"The newest and most exciting In- 
vaders-type game yet! Smooth sound 
effects, sharp graphics, and the 'Flag- 
ship' alien from Super Nova combine 
to make this our finest TRS-80 game!" 

$14.95 16K Level I or II 



The SoMw&are Exchange 



6 South St., MiKord, NH 03055 



ORDER TOLL-FREE: 

1-800-258-1790 

(In NH rail 673-514.4I 



Three from Potkin. 

1). Kriegspiel II. 



A much improved two-player version 
of the original, Kriegspiel II is a war- 
gamer's delight. Choose the number of 
mountains (up to 200)and pick a scenario 
from the 9,999 possible, and then watch 
the computer set up the pieces, towns, 
mountains and a river. To win, you must 
enter the capital city of your opponent or 
reduce his fighting strength to below 
half of your own 

S-80 Level II, 16K cassette $14.95 - 





^ The Indians are on the warpath! The 
Chief, along with 24 braves, is out to 
take the garrison at the fort, or at least 
to stop reinforcements from entering the 
stockade. The General, with his 14 
troopers, is trying to relieve the garrison 
before the flag is captured. The player 
determines the scenario through place- 
ment of boulders that provide both 
shelter and obstacles. Favorite 
scenarios may be replayed. 

S-80 Level II, 16K cassette S14.95 



Wargamer's delight 



2). Up Periscope 

The author of the popular Kriegspiel II 
has done it again. This time the action 
takes place at sea with one player con- 
trolling the submarines while the other 
attempts to sail around RADSHA Island, 
with at least three of his fleet surviving 
the attempt. This realistic wargame in- 
cludes sonar, depth charges, and 
torpedos 

S-80 Level II, 16K cassette $14.95 



CALL TOLL-FREE 
1-800-258-1790 

In NH call 673-5144 
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BOING! 




by Ron Webster 
Atari translation 
by James Garon 

BOING! is for any Level II 
TRS-80 or 8K Atari with joystick. 

You have been thrust into the 
employment of an over-exuberant 
trampolinist: The infamous 
Bouncing Barney! 

Barney doesn't bounce as 
"normal" people do, because 
"normal" people tend to stay on 



the trampoline. Barney likes to 
bounce all over the gymnasium. He 
can bounce off the walls and 
ceiling with no problem, but he 
doesn't seem to realize that 
bouncing off the floor is harmful. 
While under the employment of the 
management, you have been given 
the awesome responsibility of 
keeping the trampoline under 
Barney. There are ten skill levels, 
numbered zero to nine, depending 



on how exuberant you want 
Barney to be. Be warned! Level 
zero is so easy you might be 
tempted to go right to level nine. 
Don't do it! Level nine is for 
people who like seeing their futile 
efforts result in messy 
consequences. Stick to the lower 
levels until you have developed 
your proficiency somewhat, for 
Barney's sake. 



S-80 Version 

Instructions 

rem: BOING! - BY RON (CBSTER - RFD 1 BOX 189 - CANAAN, CT. 

1 CLS5PRINTei7,"x «iBOINGlxi i"!PRINT 

2 PRINT"DON'T LET BOUNCING BARNEY DOW! BARNEY LIKES BOUNCING," 

3 PRINT"BtJT HE HAS TROUBLE STAYING ON HIS TRAMPOLINE. USE TIC" 

I PRINT"LER 4 RIGHT ARROW KEYS TO KEEP IT UNDERttATH HIM. IF" 
5 PRINT"HE HHS THE LEFT SIDE OF TfC TRAMPOLINE IC BOUNCES TO" 

4 PRIMT"THE RIGHT. F HE HHS TIC RIGHT SIDE OF THE TRAfFOLENE" 

7 PRINT"HE BOUNCES TO TIC LEFT. THIS AFFECTS B<«NEYS BOUNCING" 

8 PRINT"«ORE AM) MORE AS THE SKILL IBJEL INCREASES, AND mES" 

9 PRINT"n HARDER TO KEEP HIM IN THE AIR. <BR»yO RESETS T«" 
18 PRINT"GAME. SEE HON LONG YOU C^ KEEP BARNEY BOUNCING." 

II print:prm"gooo luckii (barney iceds ni)" 

strobe the keyboard until user hits s nufiber fro« zero to 
nine. This nu«ber is the skill level. A* contains the nonber 
in string torn, 

12 PRINT9917, "SKILL LEVEL? (0-9)";:CLEAR70:RAMX)M:A»=INKEY* 

13 A$=INKEY$:FA*=""THEN13ELSEIFASC(A$)<180RASC(A*)>57THEN13 
H = (skill level + 2) / 1, a nwter frofi 0.5 to 2.75 yhich 
will be used to deterMine how Much Barney Bounces to the 
left or right. B$ is the trawpoline. It has two blanks on 
either side so that when it Hoves (in two space increnents), 
it Hoot leave part of itself behind in the previous position, 
which otherwise would not be cleared. PRINTK, STRING* (59, 131) 
prints the ceiling of the gymasiuM. Line 16 prints the walls 
of the gymasiufi by POKEirig into video nenory the value of a 
full graphics block (191) at the proper locations. 

H h=(val(A«)+2)/i:cls{forx=itoi;b«=b»+chr$(131):ne)(t 

15 B«=" "+CHR$(135)+B*+CHR$(139)+" ":PRINTK,STRING»(59,131) 

16 FORX=15361T016263STEP61:POKEX,191;POKEX+59,191:NE)(T 

Barney is represented on the screerj as a single graphics 
block. A is his horiiorital position (fron 1 to 119) and B is 
his vertical position (fron 1 to 11). To give the illusion of 
notion, Barney's inage is updated nany tines each second. C 
is the horizontal distance he noves for each update. This 
value does not change until Barney hits the tranpoline or 
either wall. If Barney has just hit the trawpoline, the new 
value of C will depend on which part of the tranpoline he hit. 
If Barney hit a wall, then C is changed to -C. For positive, 
negative, or zero values of C, Barney noves left, right or 
straight up and down respectively. To prevent straight up 
and down notion fror happening on nany consecutive bounces 
(thus allowing the player to keep scoring until there is a 
blackout or a dinner bell), C is randonized enough to nake it 
alnost inpossible to send Barney straight up nore than once. 



t 



D is the vertical distance Barney noves on each update. This 
nunber is decreased by 0.1 because Barney follows a parabolic 
curve rather than a straight line. If Barney hits the ceilinQ 
D is set to the negative absolute value of D. Hhy not sinply 
-D? There is a rare case, which happened to ne once, in uhich 
ti-irns out to be positive and Barney walks fron wall to uall 

ri the ceiling, never coning down. When Barney hits the tran- 
poline, D is set to E (see below). If D is positive, Barney 
is ascending, If D is negative, Barney is descending. If D 
is zero, Barney has reached the top of his bounce. E is the 
new D value at th^ beginning of each bounce. At every bounce 
E is increased by a randon anount between 9.0 and 0.5. If 
Barney hits the ceiling E is decreased by a nunber between t,6 
and 1.6 so that he won't hit it again on his next bounce. The 
larger E is, the higher Barney's next bounce will be. P is 
the PRINTS position of the tranpoline (fron 960 to 1012). 
!7 E=l .5:P=986: A=62:B=«:D=1 .5:C=fiND(2)iH-(3iH/2) :PRINTeP,B«; 

Barney walks out to the tranpoline, clinbs up and walks into 

the center. 

18 F0RX=1T0^STEP.5JRESET(X-1,16):SET(X,'»6) 

19 >CXTJF0RX=16TO«STEP-.l!RESET(55,X+l) 

20 SET(55,X):NEXT:FORX=56T061STEP.5 

21 reset(x-i,ii):set(x,«):next:reset(61,ii) 

moo is an address used by the keyboard scan routine in 
BASIC. It contains 32 if the left arrow is pressed and 61 if 
the right arrow is pressed. Add or subtract fron P (tran- 
poline's position) depending on which (if any) arrow is be- 
ing pressed. 

22 IFPEEK(11100)=32ANDP>960P=P-2 

23 IFPEEK(l'M00)=61ANDP<lfll2THDP=f+2 

If Barney is exactly on a level with the tranpoline, print 
BOING! where the tranpoline would usually be. Otherwise, 
print the tranpoline. 
21 IFB=11THENPRINTeP," BOING! ";ELSEFRINTeP,B«; 

Erase Barney and update his X and Y positions as well as the 
vertical step, D. 

25 reset(a,b):a=a-c:b=e-d:d=d-.i 

If Barney hits either wall then change the sign of C so that 
he bounces off it. 

26 FA<1THENA=1:C=-CELSEFA.>119THENA=119;C=-C 

If Barney hits the ceiling, change D so that he bounces off 
it, and change E so that he won't do it again for a. while. 
If Barney is at a level with or below the tranpoline, reset 
D to E. 
27 IFB<lTHENB=i:DF-ABS(D):E=E-RND(0)-.6£LSEIFB(>=11T»C}©=1i:i)»e 
If Barney nissed the tranpoline, print SPLAT! ! and nun- 
ber of bounces. CO is increnented after each sucsessful 
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bounce. Then go back to line 12 (skill level question)* 

28 IFB=1*WPOIMT(A,15)=0SET(A,'»6):PiaNTe60fl,"S PLAT! I"} 

2? IFB=1*WraiMT(fl,«)=0PRMe661,CO"BOUNCE"; :iFaK>lPRINT''S''J 
30 IFB=11M)P0M<A,«)=DRUN12 



If Barney hit tranpoline* increnent CO, get a neu value for C# 
and update E< 

31 IFB='MTHENCO=CO+i:C=(A/2+955-P+»l)(0)/2-.25)iH:E=£+«i)(0)/2 
Display Barney and start the uhole thing all over again. 

32 SET(A,B);G0T022 



Atari Version 

Create pittire of trmmVine in Bt and 
i»rint instructions. 

e REM BOING! BY RON i€BSTBi 

ATARI TMNSLATION BY JflfES GARON 

5 DIM B«10) FOR 1=1 10 te READ X^B*(I>= 

C«»(X,VNEXT I 

19 GRAPHICS e POKE 82,5;P0SITI0H 9,1 
15 ? "t * t B I N G ! * * *":? 
2B ? 'Don't let Botticins Bamea doun!" 
2S t 'Bame>i 1 ikes bartcirs, but he" 
38 ? 'has troUile staains on his" 
35 ? "traapoline Use the JoMstidc" 
40 ?. "to keep it undertieaU-. him If" 
45 ? "he hits the left side of the" 
58 ? "traapoline he bounces to thie" 
55 ? "risht. If he hits the riai-.t" 
S8 ? "side of the trampoline, he" 

65 ? "bounces to the left This af-" 
79 ? "fects Bamea's bouncins inore" 
75 ? "and i»ore as the skill level" 
88 ? "increases, and «akes it hardet^" 
85 ? "to keep hi* in the air. See" 
98 ? "hou Ions Mou can keep Bamea" 
95 ? "boLticins."^? ? "Good luck !! ", 
188 ? "<BameM needs it! )" 
Olpen keaboand for input. 

118 OPEH tl,4,0,"K' 



Ask for skill level and uait urtil 
p\intr presses a number fro« one to 
nine. 



128 ? " Skill level (8-9)?"; 

125 GET tl,a !J=(M8 

139 IF CK0 OR' Q>9 T1€N 125 

Calculate difficult^ leuel, H, so to 
OWPHICS 5, and tim off cursor. 



148 H=<l>t2X-4 I3W1PHICS 5 POKE 752,1 

Select colot^s for the samnasium and 
i^aw it 

145 SETCOLOR 4,18-2 SETCaOR 2,4,2 

138 SETCOLOR 0,4,2 SETCOLOR 1,8,12 

135 COLOR 1 FOR 1=8 TO 5 PLOT 1,39 DRAHT 

I,e^«XT I 

\» ORtWO 74,8 FOR 1=74 TO 79 PLOT 1,8= 

DRAHTO I,39>Ba I 

A, B, C, 0, and E are used in the sue 



•anner as in line 17 of the S-80 ver- 
sion of "BOING!" P is POKEd into lo- 
cation 657 to position the trampoline 
at the top of the text window. COUKT 
is the number of boinces. (The first 
bouoce is free! ) 

178 E=1.5 P=1S A=39 B=A D=E = COl*IT=l U=14 

172 C=IHT':RHK0>*2+l)«+-i'2«H 

175 POKE 656.0 ?>>(£ S57,P ? B$i 



Bamea walks ciut to the trampoline, 
cliinbs UP and walks into the center. 

188 FOR X=0 TO IS FOR 1=15 TO 32 STEP 17 
POKE 656,0 P0(;E 657, X = ? CmtC I ); 



185 FOR J=l TC IB fCXT J^htXT PNDrT X 



ISe POKE S57,:£ •? CH?*( 11 ;■; =FOR 1=1 TO 5 
= l€XT I POU 657,16 ' " "i^FOR X=34 TO 
39 

280 CXOR 2 PLOT X,E FOR 1=1 TO 10 hE-H" 

rcoLOR PLOT :>:,E FOR 1=1 TO 50 NE:>a- I: 

tea X^COLOR 2 PLOT A,B 

If plaaer f-resses stick to the left 
(includira diasonal la), subtract 
one from F (Trninpo! uie's position) in- 
less it 15 asiirst t(-« left wall of 
the sauriiSiUi; L;.-e; 2.30 perforais si«i- 
ilarla if tte sti.rt: is pressed to the 
risht - 

228 S=ST!!;K:ev 

225 IF S:>S HMD b.i; H^C P>2 THEN P=P-1 

230 IF S>4 etD See (*C P<30 THEN P=P+1 

Make "BOIMI'" souod ba increasins 
pitd-i and decrsasiris i-cluiiie of soind. 



235 SOUND 0,150+2.1«,10..U 11=1.1-2 IF (X0 TH 
EH Li=e 



Position tJ-« text «indow cursor to 
print the tranpoline. 



248 POKE 656,0 POKE 657, P 



Print th* traapoline or the word 
"Bains!" if Bamea has Just bounced 
on it. 



242 IF B>38 5 T}£N ? " Boins!"; GOTO 250 



245 ? B»; 

Erase Strveif and update his position 
as well as the vertical step, 0. 

298 CaOR PLOT INT( A ), IHT( B ) A=A-C B»e 
-0 

235 M)-8 4 



If Bamea hits either wall, chanse C 
90 that he bounces off it. rbke sound 
at line 468. 



268 IF A<e TfCN A=6=C=-C=G0SUB 488 



265 IF A>73 Tf£N A=73X=-C=G0SLe 406 



If Bamea hit the ceil ins, chanse D so 
that he boinces off it, and E so that 
he uon't do it asain on his next 
boirtce. Reset D to E if Bamea hit 
traapoline. Set volume of bounce sound 
to maxiMui and calculate position of 
left ed9e of tra«poline (LEFT). 



27B IF B<1 TfCN B=1>D=-«S(D) E=E-fiMX8) 
-l^GOSUe 488 



275 IF B<38.5 Tiei 328 



288 B=39D=£ 11=14 :LEFT=P+P 



If Bamea landed on the trampoline, 
bounce to line 318. 



285 IF INT<A)>LEFT AND IMT<AXLEFT+14 TH 
EN 318 



Bamea aissed. Print "SPLAT ! !" 
and nuober of successful bounces 



298 ? ' "S P L A T ! !",a)UNTi" Bounce" 
i-If COUKTM Tiei ? "s" 



Show iiihare Bamea landed and make an 
appropriate socrtd 



295 COLOR 2:PL0T IMT(A),IHT(:B) FOR l>=14 
TO STEP -0 1 = SOUND 9,253,12,11 = NEXT U=I 
F dOUHT=l ThB) '■ 



Displaa pre'-'ious skill lei.iel and 
bounce to besinnins of saine. 



308 ? " Skill lev.'el was ";Q = GOT0 128 



Bamea landeid on th^ trampoline. Add 
one to tt-je nuiiber of bounces, in- 
crease thifi hiSisl-rt to i*(id-. Va will 
bounce, E, and calculate his new hori- 
zontal iiioiiientuvi, C. 



310 IF B>38.5 T1€M C0UNT=C0UNT+1 =E=E-I»0 
< B ).'-2 = C=< A-8-LEFT+RHX 8 ) )»i-'4 

Draw Barnea and bounce back to 1 ine 
226 to see if plaaer is trains to move 
the trampoline. 



320 CaOR 2 PLOT INT(ft),INT(B) = GOT0 228 



o 
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SOUNDWARE 

SOUNDWARE adds a 
whole new dimension to 
your computer games. 

Programs come 
alive with laser sounds, 
bounces, clicks, sirens, 
bird calls, music notes, 
tunes, and whatever else 
your imagination dreams 
up. Just slip in two AA 
batteries, plug into your 
computer, and have fun. 

SOUNDWARE 
SOFTWARE programs 
are also available to 
enhance the enjoyment 
of your computer. $29.95 



); 



DIGITAL CASSETTES 

Premium quality digital recording tapes. These 5-screw cassettes come 
packaged in boxes of 10. They are offered in 10 and 20 minute lengths. 

C-10 $6.95 + $1 

C-20 $7.95 + $1 

DISKETTES 

DYSAN: 

104/1 One-sided single density (one side certified error free at single 
density of 3979 bpr.) In track and between track testing is performed to 
ensure that the entire recording surface of every disk Is 100% error-free. 
Box of 5 diskettes $29.95+ 

BASF: 

Box of 5 $19.95 + $1 

Box of 10 $34.95 + $2 

Box of 100 $299.00 + $3 

3-M SCOTCH 

Encased in a tough jacket which resists handling damages. 100% 
certified error-free performance. Low modulation provides better signal 
stability. 
Box of 10 $39.95 



J: 




DISKETTE HEAD CLEANING KIT: 

3-M Scotch 7400 head cleaning kit is simple and easy to use. You simply 
saturate the write head cleaning fabric in the cleaning diskette with the 
cleaning solution, insert the diskette into the drive and turn it on. The 
rotating cleaning fabric alternately wipes the heads with the solution and 
the dry surface, removing contamination from the read write head. Each 
kit contains 10 cleaning diskettes which will allow you a total of 150 
cleanings. $29.95 

RECORDING HEAD TAPE ALIGNMENT KIT 

It consists of a template for locating the adjustment screw. An alignment 
tape is also included and a special screwdriver as well. The kit will allow 
you to align the heads to an industrial standard, ensuring consistent 
loading results. $9.95 



FLOPPY DISK SAVER 

PREVENTS: 

Computer drive's clamping hub 
from tearing disk's center hole; 

Coating removal, scuffing, 
dimpling; 

Data loss caused by improper 
rotation. 
$14.95 Refills $7.95 




FLOPPY ARMOR: 

Prevents damages to your 
diskettes. These are high 
density, ultra lightweight 
polymer shipping envelops. 
Pack of 5 $4.95 + $1 
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POCKET TAPE DUBBERS^ 






by Edward Ting 

Almost everyone has experienced 
tape loading troubles with their 
computers, but the TRS-80 is 
notoriously bad. Dropped bits and 
misread data are all too common 
problems. 

To solve these problems, 
products arc now on the market 
which not only enhance loading, 
but allow you to dub tapes. 
Unfortunately, these devices cost 
upwards of $50. which is quite 
steep. So most of us suffer. 

The Pocket Tape Dubber is a 
simple device that performs the 
same functions as commercially- 
available units. It even dubs tapes 
for you! The main difference is 
that the Pocket Tape Dubber will 
save you loads of money. It can be 
built for under $5. If youVe an 
electronics hobbyist, run to your 
parts bo.x! The components used in 
construction are among the most 
common. If you need help with 
parts, here is a list. 



y^ 
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DUBBER 



TESTING AND OPERATION 

When the unit is completed, it's 
time for some testing. Plug the 
'Master' plug into the car jack of 
your master recorder (the one you 
normally use). Connect the two 
alligator clips to the black plug 
from the computer. Be sure that 
clip B connects to the tip terminal 
and clip A connects to the body 
terminal. Also be sure these two 
clips arc not touching. With the 
power on, load tapes as usual. 
Note: The two gray plugs from the 
computer connect normally. 

If you wish to copy the tape 



pujer 



NAASTER 
RECORDER 




being played, place a blank tape in 
the slave recorder. Plug the 'Slave' 
plug into the AUX. jack. Press 
"record" and "play." Load the tape 
from the master recorder as usual. 
The tape will be copied onto the 
slave recorder's tape. Remember 
that the computer will not stop the 
slave recorder, so you will have to 
do this manually. Note: This 
process is intended only for making 
back-up copies for your own use. 
Please don't abuse this function. 



1) 741 op-amp IC (RS cat* 276-007) 

2) 22K Resistors (RS» 271-038) 

3) 1 Meg resistor (RS* 271-059) 

4) 1/8" phone plugs (S# 274-286) 

5) 10 alligator dips (you'll only 
use 2) RS* 270-373 



$3.35 



If you've never used an IC 
before, please don't get scared. Just 
think of it as a transistor with a lot 
of legs. Any type of construction 
may be used, including PC board. 
Pert-board, or even cardboard. 
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'd ventures are 



isruptingly addictive 



Great Scott! 

What have you 

created? 

The international reception of Scott Adams' ADVENTURE 

game series is phenomenal! Each of the ten games takes the 

player on odyssies of intrigue and danger, through 

confrontations with various villains, in pursuit of a wide 

variety of mysteries and treasures, in surroundings both 

familiar and alien. You may find yourself in a voodoo den, 

on the edge of a strange and threatening galaxy, in the 

^core of a malfunctioning nuclear reactor, or in any one of the 

several other settings; ranging from mundane to bizarre. 

Challenge your genius! Order an ADVENTURE 



irtually thrusting 



Master these ADVENTURES! 



0. 
1. 
2. 
3. 
4. 



Special Sampler 5. 

Adventureland 6. 

Pirates Adventure 7. 

Mission Impossible 8. 

Voodoo Castle 9. 



The Count 
Strange Odyssey 
Mystery Fun House 
Pyramid of Doom 
Ghost Town 



igosinto 



ADVENTURES are available for Pet™, 
Apple™, TRS-80™ Microcomputer, 
and other major personal computers. 




€1 



Look Mrho*s raving 
about ADVENTURE 

Out of 50 programs reviewed, Adventure was 

rated No. 1 ! "Highly recommended." 

80 Software Critique 

"Adams' Adventure is exquisite. It is a true 

tour-de-force ..." 

Recreational Computing 

It is worth the money to buy a computer just to 

play Adventure." 
Software Directory Winter 1980 

"... Truly absorbing simulations. These games require 

you to be inquisitive, innovative, a thinker, a risk taker, a 

logician, a warrior, and a lover of real challenges — in 

short, an Adventurer." 
Ramon Zamora, Recreational Computing Issue 4 

LOVED IT! There was a real challenge to this program ..." 
Captain 80, 80 Microcomputing Issue 1 

Adventures 1-9, $14.95 each 
TO ORDER: CALL TOLL FREE 

1-800-258-1790 

^^1 (In NH call 673-5144) 
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COPYCAT 



by A. Douglas Werbeck 



Instructions for COPYCAT+ 



x-uiinii 



by Chris Freund 



COPYCAT + is a S-80 program 
requiring 4K of RAM. 



The May issue of SoftSide-80 

carried my little program called 
LIVEKEYS on page 12. 

During the past two months I 
have received several letters from 
subscribers with favorable 
comments (thank goodness) 
concerning my program. I had 
even forgotten the line listing 
included my address; it was very 
flattering to receive the response. 

All of the letters contained 
suggestions. Some of them 
requested me to write an additional 
"line or two" of program that they 
could insert in order to add various 
features, the most popular one 
being a cursor. 

Adding the features was going to 
be easy enough; however, SoftSide 
had bestowed upon my program 
the title of "World's Smallest Word 
Processor." That meant 1 had to 
watch length and not challenge 
SCRIPSIT! It seemed to me that 
the world's smallest anything needs 
to be able to fit on the video 
without annoying scrolling, so that 
was the goal 1 set for the revised 
program. The changes got so 
extensive I decided to rename the 
program COPYCAT+. 



1. Type the first line of your text 
on the keyboard. Do not type 
more characters than your printer 
is set to print on one line of paper. 

For instance, if your printer is 
set to print 64 characters per line 
on paper, you could type up to one 
video line (also 64 characters). If 
your printer was set to print 100 
characters per line on paper, then 
you could type up to a line and a 
half on the video screen (64=32 + 
96). 



2. You can correct a typing error if 
you DO NOT type past it. After 
you have typed an incorrect 
character, immediately type #. That 
will make the error disappear. You 
can now proceed to type in the 
correct character and continue. 
You cannot use the # in normal 
operation; it is a reserved 
character. 

3. Whenever you wish to transfer 
your video line to the printer, just 
press ENTER. A bar will appear at 
the end of the dumped line on 
video to indicate that it has been 
dumped so you do not need to 
constantly glance at the printed 
copy to see where you are. 

4. END 



10 
!5 
2C 
25 
30 
35 
10 
45 

50 

JJ 

AO 
65 
70 

SO 

85 
90 
95 



REM 

rem: 

REM 
REM 



XXX C P Y C A T xxx 

COPYRIGHT BY A. DOUGLAS (£R£:ECK 1980 
POB 787 RUSiaN FL 33570 



CLS;pRINrai.CriRti93) 

A$=IM(£Y*.'IFA$-""THENfO 

IFA$="*"TH£Ne$="":A$="":N=ty-i:PR:NTeN,CHR;lll28;;G0TaSD 

rFASC(A«)=13THENLPRINTBt;PRINTI?,'v-l,A$;B$="":GOTO90 

PRINT!?N+ ! , CHR$ (126): N=N+ 1 : PRINTi?N+ 1 , CHR$ ( 93 ) ) 

LF'RTNTPt;:PRINT(?N-l,A$; 

E;$=INf(EY$;iFE:»=""THEN65 

IFE;*="*"THENAi="":E:$="";N=N-i;PRINTeN,CHft$(128):GOTO40 

IFASC(E*)=13THENLPRINTAt;F'F;INTi?^-l,E$:A$="";GOTO90 

FraNTPN+l ,CHRt(123) I :N=N+1 IPRINTgN+l ,C,HRt(93) 

LPRINTA$ I : PRINTSn- 1 , B* ; : GOTOtO 

PRINT(?N+ 1 , C,4R'$ (1 3S ) : A=A+6'i : IFA:.:-«'?8THENA=0 

N=Ax2tF-RINTeM+l ,CHR1 (93) :GOT010 



© 
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For the thousands who 
have enjoyecj X-Wing Fighter, 
X-Wing II presents a totally 
new element in the game! 

You are the pilot of an 
X-Wing fighter .... Your 
Mission, Destroy the Death 
Star! 









Where X-Wing I left Death 
Star looming on the screen, 
X-Wing II lets you guicje your 
fighter into the trench, find 
the exhaust port, aim and 
fire — all the while avoiding 
enemy fighters. Excellent 
graphics, 12 levels of play, 
and extensive INKEY$ 
commands make this one of 
our most exciting "real time" 
games. 

Level II, 16K -$9.95 



The 
Sohwate Exchange 

I )HI)I k U >! 1 I Kl ! I" Ml . .,! 1. ■ ( .!4J 

1-800-258-1790 
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Feeling Diskusted 
with your System? 

You say you worked 35 hours on a Cadets in Space program only to see it 
vanish as your disk just turned and turned? And the program you use for the 
household budget suggests that Junior's allowance be raised to $25,000 a 
week? Does your Electric Pencil seem to have a broken point? 

Don't panic. Don't despair. Heave a sigh, perhaps, and maybe even shed a 
tear. It'll clear your eyes out and prepare you for the solution to your woes: 
TRS-80 Disk and Other Mysteries , by Harvard C. Pennington. Your troubles 
will soon come to an end. 

Pennington tells you most of what you need to know about TRS-80 disk 
drives; how disks are organized, how space is allocated, how files are located 
on disks, and the tools that one may use to look at disk files and directories. 
The book both provides a geneneral understanding of how disk systems 
operate, and discusses and explains how to fix disk problems such as lost files. 
Electric Pencil bugs and other seemingly impossible tangles. 

On top of that, Pennington's drawings and his language are engaging and 
quite amusing. If you can beat knowledge and fun in one package, then seek 
elsewhere. If not, then TRS-80 Disk and Other Mysteries might be for you. 

$22.95 plus $1.00 shipping 




The 
Saitwate 
Exchange 




**■-►• 



TO ORDER TOLL-FREE 

1-800-258-1790 

(in NH call 673-S-I44) 

TRS-80 IS a trademark of Tandy Corp 
Cartoon ■ Harvard C. Pennington 
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^'Did you know you 
^ould get Sof tSide's 
.programs already 

ILtyped?'' ^ 







o ca 




With SoftSide Disk and Cassette subscription you can get each month's 
TRS-80, Apple, or Atari programs delivered on disk or cassette with every 
issue of your SoftSide. No more hours of typing. No hunting for typing 
mistakes. The programs for your computer are tested and ready to go the 
day you receive them. 

To order, use the form below or call 1-800-258-1790 toll free. In N.H. call 
673-5144. Be sure to specify TRS-80, Apple, or Atari. 

If you already receive SoftSide magazine, you will receive credit for the 
remainder of your subscription toward your new cassette or disk 
subscription. 

TRSSO. Apple, and Aton are trademarks ol TANDY. APPLE COMPUTER CO. and WARNER COMMUNICATIONS, respectively. 



J5ffi5f4 






V/S4 



Z' 



\ 



D Magazine and Cassette $39/6 months 
/ D Magazine and Cassette $75/year 
j n Magazine and Disk $64/6 montiis 
' D Magazine and Disk $125/year 

I 

I MC# 



Specify: 

n TRS-80 programs 
n Apple programs 
D Atari programs 



n Check or money order 

n VISA 

n MasterCard 



\ 



Sgnaiure . 



_Exp. date. 



(M.'C only) 
-Interbank ». 



Name. 



I 

I Address 
I City 

\ Q MAIL TO: SOFTSIDE, 6 SOUTH STREET, MILFORD, NH 03055 

SoftSide NOVEMBER 1980 



.State. 



Zip. 



J 
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^ . Look: : up in 
^ sky, /tea bird, 




from 



ULSE 



View two text screens at 
once; Keep notes on one 
and edit the other. 
Connplete cursor control. 
Built in floating point nnath. 
Automatic tabbing. 
Delete character, word, line 
or screen. 

Right, left, or center justify. 
Unlimited text movement. 
Global search and replace. 
Complete file merging 
capabilities. 

Automatic page numbering. 
Upper and lower case. 
Superscripts, subscripts 
and underscoring. 

For the APPLE II and 

APPLE II Plus, 48K 

$99.95 



The SaMware Exchange 

TO ORDER TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 



lake your 
Apple Blossom 



HIGHER GRAPHICS 

Complete stiape generation, 
manipulation, and utilization tools 
for the programmer. Add 
sophisticated graphic displays and 
effects to your programs. Shape 
Maker, Table Combiner, Screen 
Creator, four shape tables, three 
high-res displays, and the machine 
language graphics routines required 
to produce high resolution graphics 
on the Apple II. 

48K disk. Integer BASIC $24.95 



HIGHER TEXT 

Print characters in upper case, 
lower case, upside down, 
sideways ... in any color! Script, 
Old English, foreign languages and 
special scientific symbology 
included. Define your own 
specialized or decorative character 
sets. Customized displays without 
any hardware modifications! 
Apple II, Apple II Plus, Machine 
Language Disk . . . $35.00 



MAILING LIST DATA BASE 

Enter and store a list of names 
with associated addresses, phone 
numbers, comments, and code 
designations. List, search, edit, print 
labels; convert prior mailing lists. 
Up to 225 records can be loaded on 
line at any time. 

Applesoft, 48K disk $34.50 



MODIFIABLE DATA BASE 

Now you can have a data base 
program that can be customized at 
will. The variety of applications is 
endless, limited only by your 
imagination. Machine language 
searches and sorts permit 
immediate access to files. Data 
manipulation ■ editing, printing, or 
deleting ■ has never been easier. 

Applesoft, 48K disk $79.50 




PROGRAM LINE EDITOR 

Full feature line editors for both 
Integer and Applesoft programs. 
Program development and 
modification can now be completed 
in a tenth the time previously 
required. 

Apple II, Apple II Plus, Disk. . . .$40.00 



DUNGEON CAMPAIGN 

Lead an expeditionary force into 
an underground labyrinth, but watch 
out for monsters, pitfalls, poisonous 
vapors, evil sorcerors, and those 
pesky pterodactyls! 

16K Integer 

Cassette $14.95 

Disk $17.50 



WILDERNESS CAMPAIGN 

Free the kingdom of Draconia 
from the clutches of the Evil 
Necromancer! Your party must 
overcome obstacles and defeat 
hostile inhabitants. Explore tombs, 
temples, castles, and ruins, in 
search of gold and magic. 
48K Integer 

Cassette $17.50 

Disk $19.95 

Both adventures on disk, 48K 
Integer $32.50 



The Sahware Exchange ^5 



6 SoiJthSlnvt.Box b8,Milfoid,NH 0J)55 
TO ORDER: TOLL-FREE 

1 •800-258-1 790 

(m N.H. call 673-5144) 
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Elegance and power 
in a mathematical 
language. 

APL 



by Phelps Gates 





Software you can rely on. 

Now, a high-level, scientific programming language that doesn't cost $200 or $300 for the home computer. This language 
is perfect for the mathematician, scientist, engineer, or anyone who just wants to learn a new language. The power of this 
language is in its strong mathematical operations, especially with regard to matrices and vectors. Programs requiring matrix 
multiplication or other matrix problem solving that would require hours of programming time in BASIC are solved quickly 
and with minimal effort in APL. Not only is math made easy, but upon gaining proficiency in APL programming various string 
manipulations become child's play. 

To aid in learning APL, lessons are included on the disk Starting from the basics, you are brought step by step through the 
various programming techniques involved with APL. These lessons act as a tutor in a "learning by doing" atmosphere which will 
have you "talking APL " in no time. Also available is the book, APL: An Interactive Approach, which reinforces many of the 
examples given in the lessons. The book also provides additional insight into APL programming. 
LIMITATIONS 

Due to the absence of the special APL character set on the TRS — 80. APL-80 uses shifted letters to represent the various APL 
characters. These shifted letters are identified on the screen by a graphics block before each shifted letter. If you have a modified 
TRS-80 , a lower case driver is included to display the shifted letters on the screen. 

In addition to the keyboard limitations, there are several other limitations. Lamination, domino, and matrix inverse are not 
implemented but can be derived with user-defined functions. 

Multiple specifications must be split into two statements unless the left-hand assignment is to a quad. This also applies to implied 
multiple specifications. 

Reduction and reshape (p) are not permitted for empty arguments: the argument of add/drop may not be scalar; empty indices 
are not permitted. 

A quad (q) can't be typed in response to a quad (nor can the name of a function which itself gets input from a quad). Quote-quad 
(m) is permitted. 

No more than 32 user functions can be defined in a single workspace and a function may not contain more than 255 lines. 

A comment (c) must occupy a separate line: a comment can't follow a function statement on the same line. 

In the tape version, arrays are limited to five (5) dimensions. 
FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOAD workspace on disk; )COPY other workspaces into current 
ones: Return to DOS for directory or commands without losing your workspace; Send output to lineprinter; Five workspaces of 
lessons included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; Easy editing within 
FUNCTION lines; Latent expression (FUNCTION can "come up running" when loaded); Tracing of function execution; Real-time 
clock; User-control of random link; Workspace is 25587 bytes (in 48K machine); Arrays may have up to 63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands: Absolute value, add, and, assign, branch, catenate, ceiling, chr$/asc, circular, 
combinatorial, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, floor, format, grade 
down, grade up, greater, greater/equal, index generator, indexing, index of, inner product, label, less, less/equal, logarithm, 
maximum, member, minimum, multiply, nand, negate, nor, not, not equal, or, outer product, peek, poke, quad, quote quad, 
random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, system, subtract, take, transposition. 

SPECIFICATIONS 

Minimum system requirements; 32K disk system (48K recommended) Includes APL-80, Fiveworkshapesof lessons, instruction 
manual. 

Price: $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 
Transpositions, format, and inner product not implemented. Reduced domain for some functions. 6 digit accuracy. 
Price: $14.95 on cassette 
APL: An Intoractiv* Approach 
Price: $16.95 ($3.00 shipping charge) 



The Sahwate Exchange 



TO ORDER TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 





The Chatterbox 

A TRS-80 Interfacing Alternative 



The CHATTERBOX is a unique packaging combination of the presently 
available COMM-80 I/O Interface for the TRS-80* and an acoustic modem. 
This one box is all that is required to turn even a barebones 4K TRS-80* into a 
full time-sharing terminal. 
The CHATTERBOX includes built-in programmable 50-19200 baud serial port, a Centronics 
compatible parallel printer port, a 300 baud acoustic originate modem, and a spare TRS-BUS 
expansion connector. It comes complete with power supply, ribbon cable and connector, user's manual, and 
terminal software for immediate operation When the modem is in use, the complete data conversion is 
automatically routed to the serial output port where it can be logged on a printer. 
The CHATTERBOX is the only peripheral needed to allow a TRS-80* to communicate with time— sharing systems such as 
fVllCRONET and the SOURCE. 

It is completely hardware and software compatible with existing TRS-80* products and connects either to the keyboard 
connector or screen printer port on the RS Expansion Interface. Features: Full 8-bit parallel port; RS-232-C serial port (up to 
19,200 baud); Acoustic modem; TRS-BUS connector for future expansion; Connects to Keyboard or El.; Includes terminal 
software; Users manual; Power supply $259 95 



PRINTERS 





LIST 


OUR 




PRICE 


PRICE 


Centronics 730 


$795.00 


$749.00 


Centronics 730-3 


$895.00 


795 00 


Centronics 737 


$995.00 


$869.00 


Centronics 779 


$1395.00 


$1095.00 


Centronics 779 w/lower case 


$1595.00 


$1195.00 


NEC 5510 SpinWriter 


$3195.00 


$2595.00 


NEC 5520 SpinWriter 


$3395.00 


$2895 00 


NEC 5530 SpinWriter 


$3195.00 


$2495 00 


NEC Tractor-Feed Option 


$249.00 


$225 00 


LRC 7000» (64-col ) 


$405.00 


$299.00 


LRC 7000' {40-col.) 


$389.00 


$289 00 


Okidata Microline-80 


$800 00 


$699 00 


Tractor-Feed Option 


$140 00 


$129 00 


RS-232-C Option 


$299.00 


$27900 



LRC to TRS-80 

LRC to PET, IEEE 

LRC to RS232C, male or female 

730 or 737 to TRS-80 

NEC or 779 to TRS-80 

RS-232-C to RS-232-C, male to male 



$20 00 
$59.00 
$65.00 
$29.00 
$35.00 
$24.95 



GENERAL INTEREST 



SPECIAL 






LIST 


OUR 




PRICE 


PRICE 


BSR System X-10 Home Controller 


$124.95 


$109.95 


BUSY BOX, TRS-80 


$114.95 


$99.95 


BUSY BOX, S-100 


$119.95 


$114.95 


AC-SFK-31 Line Filter 


$24.95 


$19.95 


ISO-2 Line Filter & Isolator 


$56.95 


$49.95 


IS0-2/CBS Line Filter-Isolator 


$70.95 


$59.95 


IS0-7/CB Super Filter-Isolator 


$146.95 


$99 95 


Mini-Flex Diskette File 


$24.95 


$19.95 


CASIO C-80 Calculator Watch 


$49.95 


$44.95 


BONE FONE 


$69 95 


$56.95 


LOGOS-9 Printing Calculator 


$99 95 


$79.95 


CASIO 






C-80 CALCULATOR 


Jl 


^ 


WATCH $44.95 


/ 


^^ 


(plus $2 50 postage and handling) 


/hf ., 


i/^/: . 



BONE 
FONE 
$56.95 



(plui $2.50 postage and handling) 




OLIVETTI 

LOGOS-9 

PRINTING 

CALCULATOR 

$79.95 

(plus $2 50 postage and handling) 



«. 



TO ORDER TOLL-FREE 
1-800-258-1790 




(In NH call 673-5144) 
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POCKET COMPUTER $269 



MODEL I $699 



Model 
Model 
Model 
Model 
Model 
Model 



, Level-ll. 4K 
, 16K no Keypad 
, 16K w/Keypad 

I, 64K RAM 

II, 16K RAM 
II, 32K Dual Disk 

Pocket Computer w/lnterface 
TRS-80 Color Computer 
TRS-80 Color Computer Expanded 
COMM-80 Interlace 
CHATTER BOX Interface 
DISK-80 Interlace 
Expansion Interlace, no RAM 
Expansion Interlace, 16K RAM 
Expansion Interlace, 32K RAM 
RS-232-C Board 



LIST 
PRICE 

$649 00 
$768 00 
$849 00 

$3899 00 
$999 00 

$2495 00 
$29895 
$399 00 
$599 00 
$179.95 

$349.95 
$299 00 
$418 00 
$537 00 
$99 00 



OUR 
PRICE 

$619 00 
$669 00 
$729 00 

$3799 00 
$929 00 

$2299 00 
$269 00 
$359 00 
$519 00 
$159.95 
$259,95 
$329 95 
$279 00 
$339 00 
$399 00 
$89 00 




MODEL III $929 



with interface 



TRS-232 Printer Interface 

16K Memory Kit, TRS-Keypad 

16K Memory Kit, TRS-Exp Int 

Upper/lower Mod Kit 

Video Reverse Kit 

CPU Speed-up Kit 

Data Dubber 

Percom Electric Crayon, w/cable 

TRS-80 Dust Cover (3pc set) 

TRS-80 Computer Case 

TRS-80 Monitor Case 



LIST 
PRICE 

$119.00 

$119.00 

$59.00 



$9 95 

$109 00 

$84 00 



OUR 
PRICE 

$59.95 
$59.00 
$59.00 
$24.95 
$23.95 
$24.95 
$49.95 
$279.95 
$7.95 
$99.95 
$84 00 




COLOR COMPUTER $359 







LIST 


OUR 






PRICE 


PRICE 




Percom, TFD-100, 40-track 


$429.95 


$399.00 




Percom, Dual TFD-100 Drives 


$849 00 


$799 00 


^ Percom, TFD-40, 40-track 


$399 95 


$379.00 


Percom, TFD-200, 77-track 


$675 00 


$629 00 


Hardside, 40-track Disk Drive 


$399 00 


$359 00 


Percom Data Separator 




$29.95 


Percom Extender Card 


$1595 


$15.00 


2-Drive Cable 


$29.95 


$29.00 


4-Drive Cable 


$39.95 


$39.00 


1 


ERMS: 







TERMS: Prices and specifications are subject to cfiange HARDSIDE accepts VISA & MASTERCARD. 
Certified cfiecks and Money Orders; Personal cfiecks accepted (takes 3 weeks to clear). HARDSIDE pays all 
shipping charges (within the 48 states) on all PREPAID orders OVER $100.00 On all orders under $100 a 
$2 50 handling charge must be added COD orders accepted (orders over $250 require 25% deposit) there is 
a $5.00 handling charge UPS, Blue Label, and Air Freight available at extra cost 



TO ORDER TOLL-FREE: 

1-800-258-1790 





In NH call 673-5144) 
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COMING IN THE NEXT 
ISSUE OF SOFTSIDE: 




KIDNAPPED: Can you escape from a ten floor building? Each floor contains a 
mini-adventure! 

COMMAND: Create your own boot sequence, doing anything you wish, in 
DOS or Basic. 



CHRISTMAS CARD: Here's a Christmas Card, complete with sound and 
animated graphics, for your yuletide enjoyment. 



SQUISH-31: Ever needed an extra two or three K for one of those long three 
month programs? Squish-3 can reduce a program considerably by combining 
lines, elininating remarks, and extra spaces. 



Baseball , Missile Evasion, States and Capitals and EVEN MORE! 



DESKTOP PLAN is 
the software tool that 
makes it practical to 
develop your own 
customized strategic 
plan analysis, budget 
planning system, 
capital budget plan- 
ning, cashflow plan- 
ning, product pricing 
analysis, job develop- 
ment estimating, job 
cost estimating, profit 



PERSONAL SOF7WA=tE INC. 

DESKTOP PLANNER 

Financial analysis J gg ^ 
on a desktop computer V^ 




Ihe Sohw^Bre Exchange 

6 South St., Milford, NH 03055 

1-800-258-1790 

(in NH call 673-5144) 



and loss projections, 
manpower require- 
ments planning, salary/ 
labor cost planning, 
balance sheet projec- 
tions, financial report 
preparation, make/buy 
analysis, and sales 
forecasting, without 
programming at a low 
one-time cost. 

$99.95 
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The Doubler ™ IgtBccM 



This proprietary adapter for the TRS-80* Model I computer packs approximately twice the 
data on a disk track. 

Depending on the type of drive, you can store up to four times as much data - 350 Kbytes - 
on one side of a minidiskette as you can store using a Tandy standard Model I computer drive . 

Easy to install, the DOUBLER reads, writes and formats either single- or double-density 
disks; you can continue to run all of your single-density software, then switch to double- 
density operation at any convenient time. 

Included with the PC card adapter is a TRSDOS*-compatible double-density diskoperating 
system, called DBLDOS™, plus a CONVERT utility that converts files and programs from 
single- to double-density or double- to single-density format. 

Each DOUBLER also includes an on-card high performance data separator circuit which 
ensures reliable disk read operation. 

The DOUBLER works with standard 35-, 40-, 77- and 80- track drives rated for double- 
density operation. 
$219.95 postpaid. ( $199.95 * with $20 coupon. ) 



TO ORDER TOLL-FREE 




1-800-258-1790 



6 SOUTH ST., MILFORO, NH 03055 




'" trademark of Percom Data Company. Inc. 
trademark of Tandy Radio Shack Corporation which has no relationship to Percom Data Company. 




HPPDS\ 

We buy and sell 
used computers 
and peripherals 
for the TRS-80; 

apple; atari*. 



(601)673-5144 




'TR&W, Apple, Atari, and Pat aralrademarks of Tandy, Appla Computer, Warnar Communications and Commodore, respectively. 
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The Software Exchange Order Form 



DESCRIPTION 



MEMORY TYPE 



PRICE 



SPECIFY: TRS-80, APPLE, 
ATARI or PET. Do not use for 
hardware. 



Check 
Money Order 



CHARGE ACCOUNT NUMBER 




ADD handling charges 

(Foreign orders minimum $5.00 handling) 

Additional charges 
TOTAL 



$1.00 



Signature., 
Name 



.Exp. Date. 



.Inter. No.. 



Address. 



City- 



.State. 



.Zip. 



MAIL TO: The Software Exchange 
6 South St. 
Mllford, NH 03055 



Special prices In effect 60 days from mailing 



or, CALL TOLL FREE 
for Orders Only 
1-800-258-1790 
(in NH call 673-5144) 



Level II software available on disk for a $5.00 (per order) medium charge. This extra fee Is for any number of programs transferred to disk from tape 
when you order. If the order exceeds the capacity of a single disk, we absorb the extra cost. 

Be sure to Include handling charge and any additional charges when figuring your total. Ail in house orders shipped within 4 worlting days. 

All prtcee are aubled to change without notice. We are not responsible (or typographical errors, Including Incorrect prices. 

ALL SOFTWARE QUARANTEED TO LOAD AND RUN. If you experience difficulties, simply return the tape or disk properly protected for free 
replacement. Send to the attention of Bette Keenan, Customer Service Representative: please enclose a brief note and your name and mailing 
address with the software. 

ALL SOFTWARE SOLD ON AN AS-IS BASIS WITHOUT WARRANTY. TSE assumes no iiablilty for loss or damags caused or alleged to be caused 
directly or Indirectly by equipment or products sold or exchanged by them or their distributors, Including but not limited to any interruption In 
service, loss of business or anticipatory profits or consequential damages resulting from use or operation of such equipment or software. 
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o 



o 



o 



Don't lose your message 
because of the medium.. 





CASSETTES 



The cassette tapes used for recording data are 

composed of two parts: the cassette shell and the tape 

loaded into the shell. The shell can beeitheraS-screwor 

sonic welded type with a non-magnetic leader or a magnetic leader (socalled leaderless 

cassettes). The shell used inourcassettesisof premium quality. 5-screw, with non-magnetic leader. The 

choice of non-magnetic leader may confuse some people, but there is a valid reason. There is a splice 

required to connect the magnetic tape to the leader at both ends of the tape. A person recording program 

material or data, using a leaderless tape, stands to drop a bit of data at the splice point. Not all leaderless 

tapes have the splice and you have to be very careful when buying thistypeof data tape. We use standard 

leader to avoid the confusion, and unhappy customers when the first recording on the tape is always bad. 

The tape used in our cassettes is of studio quality. The same type 
of tape is used by some studios for making master recordings. The 
magnetic tape used in the cassette is the true heart of the cassette. 
You can have the best shell made, but with low quality tape it is 
still junk. 

The cassettes offered here have been chosen for the high- 
est quality components consistent with a practical cost level. 

Cassettes come packaged in boxes of 10. They are 
offered in 10 and 20 minute lengths. 



C-10 
C-20 



$6.95 
$7.95 



$1 
$1 




DISKETTES 

We offer two levels of diskettes: certified and non-certified. The certified diskettes have been put 
through a test to check the entire working surface for bad spots. These diskettes are certified error-free 
by the manufacturer. If you require assurance of every diskette being perfect, then the Dysan certified 
diskette is for you. 

The BASF company invented magnetic tape from which the very large and varied industryof today has 
grown. We offer the BASF premium quality (non-certified) Diskette. These diskettes enjoy one of the 
lowest reject rates of any manufacturer (all our disk-based software is duplicated on BASF). 

We are also offering diskettes from 3-M SCOTCH. These come encased in atouch(PVC) jacket which 
resists handling damages. They are certified 100% error-free. Their low modulation provides better 
signal stability. 

BASF: 

Box of 5 $19.95 + $1 

Box of 1 $34.95 + $2 

Box of 1 00 $299.00 + $3 

3-M SCOTCH: 

Box of 10 $39.95 + $2 

DYSAN: 

Box of 5 $29.95 + $1 

TheSoHware Exchange 

6 South St , Milford. NH 03055 

TO ORDER TOLL-FREE: (in NH call 673-5144) 

1-800-258-1790 
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Unlock the hidden powe 
of your computer for fast and 
easy programming! Use ROM 
routines in your BASIC 
and Assembly Language 
programs! All you need to 
know is in... 



ALL 

ONLY 

$19.95 

plus $1 shipping 



VISA 



ORDER TOLL-FREE 

(In NH call 673-5144) 





INCLUDES: 

SUPERMAP 

From Fuller Software ($18.95) 

TRS-80 

DISASSEMBLED 

HANDBOOK 

by Robert Richardson ($10.00) 

HEX MEM 

by John Phillipp 
Monitor written in BASIC 

Z-80 
DISASSEMBLER 

by George Blank 



1-800-258-1790 

IheSohware Exchange 



A SoftSlde Publication 



Guide to Level II BASIC 
and DOS Source Code 

Description of the contents of the Level II BASIC ROM by 
memory locations, by function, and in lesson format. Includes 
several BASIC and Assembly Language programs in listing 
format to examine and use ROM routines. 



